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HELIKOPTER 


SUPER BASIC 


FIREBIRD 


GORILLA 



SUPER ASSEM 


Von unserem Super-Software-Programm sollten auch Sie profitieren!!! 
Denn wir haben die fantastischsten Spiele und die tollsten Hilfspro- 
gramme!! ! Wir haben die Programme, die Sie haben sollten! ! ! 

CHESS MACHINE 

Das neue Schachprogramm, mit der ganz tollen Grafik. Sowas haben Sie noch nie ge- 
sehen! — Höchstens bei Computer mit Super-Hochauflösender Grafik! — Und der 
Clou . CHESS MACHINE gibt Kommentare zu Ihrem Spiel. Damit Sie endlich einmal 
wissen was Sie richtig, und was Sie falsch machen 1 Sieben Spielstufen I 
Preis auf Cassette: 59,-- DM Preis auf Diskette: 69,-- DM 

SUPER BASIC -DER UNGLAUBLICHE NEUE BASIC-COMPILER 

SUPER BASIC verarbeitet Felder (z. B. DIM B$ (9,9,8) geht!) I SUPER BASIC ist 
fast kompatibel zum Colour Genie Basic! Übersetzte Programme laufen bis zu 300x 
schneller! 

Preis auf Cassette: 89,- DM Preis auf Diskette: 99,- DM - Mit Disk-Befehlen! 1 1 

SUPER ASSEMBLER - DER ASSEMBLER, DER NEUE MASSSTÄBE SETZT! 

Was Sie mit diesem Assembler alles übersetzen können ist unglaublich ! 1 1 Und die vie- 
len Befehle, die der versteht. Die Disk -Version assembliert auf Wunsch direkt von der 
Diskette (Source-Code bis 170KI) I 

Preis auf Cassette: 89,- DM Preis auf Diskette : 99,- DM 

HELIKOPTER 

Retten Sie die armen hilflosen Menschen! Versuchen Sie den weißen Elefanten zu 
überfliegen. HELIKOPTER — Das Spiel, von dem die Fachpresse schwärmt! (Siehe 
z. B. Computer Kontakt Nr. 6-7/84) 

Nur auf Cassette lieferbar I Preis : 59,- DM 

GORILLA 

Die fantastische Donkey-Kong Version für Ihr Colour Genie. Mit 10 verschiedenen 
Bildschirmen I 

Nur auf Cassette lieferbar I Preis : 49,- DM 

FIREBIRD 

Können Sie die Erde vor den erbarmungslosen Angreifern aus dem All retten??? 
Super-Action ist garantiert! 

Nur auf Cassette lieferbar I Preis : 49,- DM 

PACBOY 

Helfen Sie dem kleinen PACBOY vor den hungrigen Gespenstern zu entkommen I 
Preis auf Cassette: 49,-- DM Preis auf Diskette: 56,- DM 

VORTEX 

Bewahren Sie die Ringe des Saturn vor den Aliens. Schaffen Sie das??? 

Preis auf Cassette . 49,- DM Preis auf Diskette : 56,- DM 

ASTRAY 

Fliegen Sie den schnellsten Überschalljäger der Erde und vernichten Sie die Angreifer 
Preis auf Cassette: 59,- DM Preis auf Diskette 66,-- DM 

Sie sehen, wir haben für jeden Geschmack etwas zu bieten. Also bestellen 
Sie noch heute bei: Heinz Hübben, Abt. Software, 5429 Marienfels/Ts. 


Versand per Nachnahme. + 5,~ DM Porto 



Versand per Vorkasse : Frei 

AUSLAND 
VOR KASSE 
EUROSCHECK 


+ DM 5,- PORTO 
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LESER SUCHT LESER * 

Hier finden Sie Kontaktadressen anderer Compu- 
ter-Freunde Seite 4' 

DRUCKER-SPOOLER 

Das warten auf den Drucker hat ein Ende ! Hier fin- 
den Sie ein Maschinenprogramm, das den Ausdruck 
übernimmt, während Ihr Computer ganz normal 
weiterläuft! Für alle Genie I, II und III und TRS 
80 Computer. Seite 5 


DAS L -SPIEL 

Ein Anspruchsvolles Denkspiel für Colour Genie. 
Dieses Spiel bietet Ihnen neben den strategischen 
Vorzügen eine ganz tolle Grafik! Seite 1 1 

KLEINANZEIGEN 

Wer etwas sucht oder etwas loswerden möchte, der 
sollte hier einmal nachsehen! Seite 17 

DIGITALE MUSIK 

Wie man Musik digital macht, also die Töne von 
einem speziellen, dafür bestimmten Computer, 
ausrechnen läßt, steht hierl Seite 21 


192 KRAM 

Ja, Sie haben schon richtig gelesen! Dieser Artikel 


beschreibt die Speichererweiterung bei Genie I 
oder II bis auf 192K RAM. Da läßt sich schon eini- 
ges speichern! Zusätzlich können Sie statt einem 
Sonder-ERROM sechzehn einsetzen. Damit können 
Sie Ihrem Computer ganz schön auf die Sprünge 
helfen!!! Seite 23 

EINKAUFSFÜHRER Seite 31 


PASCAL-KURS 

Lernen Sie doch Pascal! Wenn Sie diesen Kurs 
Ausgabe für Ausgabe mitmachen, können Sie es 
bald! , Seite 47 


ASSEMBLER-KURS 

Machen Sie mit bei unserem Assembler-Kurs! 
In diesem Teil gibt es wieder einiges zu lernen 
und die Lösung vom letzten Mal. Seite 53 

WIE SCHICKT MAN PROGRAMME EIN 

Eine Hilfestellung für alle Autoren und solche, die 
es werden möchten. Seite 56 

DENK MAL WIEDER 

Ihr Colour Genie macht Sie zu einem wahren 
Kopfrechenkünstler! Dieses Programm müssen 
Sie abtippen! Seite 57 


GENIE DATA, Ausgabe 6, Jahrgang 2, 

Novem bar/Dezember 1984 
Herausgeber: Heinz MUbben, Offietdruckerel 
und Varlag, 5429 Marlenfell, 

Telefon: 06772-1261 
Chefredakteur: Heinz Hilbben 
Tltalgeitaltung: H. HObben, Offsetdruckarel 
und Verlag, 5429 Marlenfels/Ts. 

Satz: H. HObben, Offietdruckerel und Varlag, 
5429 Marlenfals/Ts. 

Druck: H. HObben, Offietdruckerel und 

Vertag, 5429 Marlenfeli/Ti. 
Erscheinungsweise; Alle zwei Monate 

Abonnements: 59,40 DM Incl. Porto, Varpak- 
kung und gesetzl. MWSt. 

Erfüllungsort: 5429 Marlenfali/Ti. 
Gerichtsstand: In Jedem Fall das fOr unseren 
Verlag zuständige Gericht. 

Manuskripte: Unangefordarte Manuskripte 

werden nur zurOckgesandt, wenn ausreichen- 
des Rückporto beigelegt wurde. Jeder Ein- 
sender erklärt sich durch die Einsendung mit 
einer Ver0ffentllchun9 des eingesandten Ma- 
terials In der GENIE DATA und Im GENIE 
DATA Software Service einverstanden. 


IMPRESSUM 

Copyright (c) 1984 by Heinz HUbben. Offset- 
druckerei und Verlag, 5429 Marlenfels /Ts. 
Nachdruck, Vervielfältigung, Übertragung so- 
wie Speicherung In EDV-Anlagen verboten. 
Bei Bauanlaltungen und/oder Programmen 
kann für die Fehlerfreiheit keine Garantie 
übernommen werden. 

Dia Meinung der einzelnen Autoren rriuB 
nicht mit der des Verlages übereinstimmen. 
Anfragen an die Redaktion bitte nur schrift- 
lich mit baigalegtam Rückporto. 

Kündigung der Abonnements: Zu Jedem Jahr, 
rechtzeitig, vor Ende des Jahres (6 Wochen). 
Jedes Abonnement verlängert sich nach Ab- 
lauf automatisch um ein Jahr. 

Sollte die GENIE DATA aus Gründen, die 
nicht In der Verantwortung des Verlages He- 
gen. nicht oder nicht rechtzeitig erscheinen, 
besteht kein Anspruch auf Nachlieferung. 

Für eventuelle Schaden und/oder Folgescha- 
den an Garttan und oder Bauteilen und/oder 
Datenverlust kann keine Haftung übernom- 
men werden. Der Nachbau unserer Bauanlei- 
tungen und/oder die Anwendung von Pro- 
grammen aus der GENIE DATA erfolgt auf 
eigene Gefahr. Alle Mitteilungen erfolgen nur 
für Amateur- und Hobby-Zwecke. Irrtum so- 


wie alle Rechte Vorbehalten. Es kann keine 
Gewahr dafür übernommen werden. daS die 
verwendeten Schaltungen, Firmennamen, Wa- 
renbezeichnungen und alie anderen Angaben 
frei von Schutzrechten Dritter lind. 

Sämtliche Veröffentlichungen erfolgen ohne 
Berücksichtigung eines eventuellen Patent- 
schutzes und/oder Gebrauchsmusterschutzes. 
Befallen Artikel-Einsendungen gehen wir da- 
von aus, daB der Verfasser alle Rechte an der 
Einsendung besitzt, sowie geistiger Eigentü- 
mer Ist. 

Ober Jede Artikel-Einsendung freuen wir unsl 

Honorar: 

Nach Vereinbarung! 

Wir gestatten Jedermann, einen Artikel aus der 
GENIE. DATA zu entnehmen, und In einer 
anderen, nicht kommerziellen, Druckschrift 
zu veröffentlichen, unter der Bedingung, das 
an der Gestaltung nichts verändert wird, das . 
erwähnt wird, da6 der betreffende Artikel 
aus der GENIE DATA entnommen wurde 
und das man uns mindestens ein Exemplar 
der betreffenden Druckschrift kottenlot, so- 
fort nach Erschelnan, zur Verfügung stellt. 
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UNSERE FREUNDE 
IN HOLLAND 
HABEN EINEN 
CLUB 
GEGRÜNDET. 

Die GENIE DATA wünscht 
dazu viel Erfolg ! 


INITIAT1EF TOT HET 
OPRICHTEN VAN EEN 
HCC-GEBRUIKERS- 
GROEP. 

Indien er voldoende belang- 
stelling büjkt te bestaan kun- 
nen we- körnen tot de oprich- 
ting van een nieuwe GEBRU1- 
KERSGROEP, onder de naam 
van HCC COLOR GENIE-gg. 
Belangstellenden worden ver- 
zocht kontakt op te nemen 
met: 

G. PEETERS, 

Molenstraat 19, 

5993 ZG MAASBREE. 
Tel.:04765-1693 


Hier sind die „ Leser-sucht-Leser" Kontakt-Adressen. 


Wenn Sie sich auch an dieser Aktion beteiligen wollen, schreiben Sie uns 
eine Postkarte mit Ihrer vollen Anschrift und Ihrem Haupt-Interessen- 
Gebiet. Diese Karte senden Sie an; Firma Heinz Hübben, Verlag, Kenn- 
wort Leser sucht Leser, Mühlbachstraße 2, 5429 Marienfels. 

Die Veröffentlichung ist für alle GENIE DATA ABONNENTEN 
Also, machen Sie mit ! KOSTENLOS I I I 


GESCHÄFTS-PROGRAMME, CG und Genie l/ll. *** 

Telefon 0228/224353, H.-J. Winterscheid. 
***•*••*#**•********•*••**••••***••«****•*•***••*#**»*•'*• 


Peter Bluhm, Anthurienweg 11, 4700 Hamm 4, Telefon 02381/78337 
COLOUR GENIE, CRTC und PSG, Software, Erfahrungs-Austausch. 
*************************** ******************************** 

RAUM GEILENKIRCHEN *** GENIE 111 -ANWENDER sucht gleichen 
Telefon 02451/41 188. 

******** *•*****•» ************** ******* ************* *,»»***«** 
COLOUR GENIE Kontakt zu kaufm. Anw. gesucht! 

W. Schwab * Heckenweg 19 * 5205 St. Augustin 2, Tel. 02241/25986. 
********************************************************** 

WER GIBT TIPS? Überspielen von System-Tape auf CG-Disk. 

Telefon 030/7447625 *** HELP *** 
********************************************************** 
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RAINER SCHMIES 

SPOOLER 

Der Drucker-Spooler ist in Z 80 drücken Sie zweimal die Taste 9 neuen Daten' überschrieben. Da- 
Assembler geschrieben urtd hat und einmal die Taste 2 (9+9+2 durch wird der zur Verfügung 
eine Länge von 592 Bytes. Von =20). Die Summe der eingege- stehende Platz optimal ausgenutzt, 
diesen 592 Bytes werden jedoch benen Ziffern ist die endgültige Ist der Puffer voll, werden zu- 
nur 160, für den eigentlichen Spoo- Puffergröße. Auf diese Besonder- nächst soviele Zeichen an den 
ler benötigt, die Restlichen benö- heit soll auch das Zeichen '+',' Drucker ausgegeben, bis der Platz 
tigt das Programm um den Spoo- das nach jeder eingegebenen Ziffer im Puffer wieder zur Aufnahme 
ler in Abhängigkeit von der vor- erscheint, hinweisen. Haben Sie der anstehenden Daten ausreicht, 
handenen Speichergröße und der nun Ihre gewünschte Puffergröße Der Spooler zeigt nicht an, ob der 
gewünschten Puffergröße im Spei- eingegeben, drücken Sie die Drucker eingeschaltet oder be- 
cher zu verschieben. Die Puffer- ENTER-Taste. Das Programm er- triebsbereii is? Ist dies nicht 
große kann bei diesem Programm rechnet nun aus der Puffergröße der Fall so wird sich d. Spooler, 
in Schritten zu je 1 K frei gewählt und dem vorhandenen Speicher- wenn der Puffer voll ist, in eine 
werden. Je. nach den Bedürfnis- platz seine neue Anfangsadresse, Warteschleife zurückziehen, in der 
sen des Anwenders. Besitzereines rechnet alle wichtigen Sprung- u. er wartet bis er die Daten aus- 
TRS 80 oder VIDEO-GENIE mit Ladebefehle um, verschiebt den geben kann, 
nur 16 K Speicher sei jedoch da- Spoolerteil und startet ihn an- Der Spooler ist sowohl im 
von abgeraten mehr als 7 K Puf- schließend. Der .Spooler ist nun je- LE VE LL,I I BASIC als auch mit 

fergröße einzustellen, dies ist. nicht derzeit betriebsbereit. Alle Daten, Disketten voll lauffähig. Bei Dis- 
möglich und führt zu Fehlfunk- die normalerweise auf den Druk- kettenbetrieb schützt sich das 

tionen. ker ausgegeben würden, werden Programm vollkommen selb- 

Nachdem Sie das Listing in Ih- nun zunächst in den Puffer gela- ständig, im LEVELL II ist nach 

rem Computer eingegeben haben, den, was wesentlich schneller dem Starten des Spoolers ein 

(wenn Sie die Kommentare weg- geht als immer zu warten bis CLEAR50 über die Tastatur ein- 
lassen ist dies auch mit. 16 K Spei- der Drucker zur Aufnahme neuer zugeben um den Spooler zu 

eher möglich), können Sie es as- Daten bereit ist. Anschließend schützen. Bei Diskettenbetrieb 

semblieren u. .auf Diskette oder wird mit der Ausführung des Pro- dürfte die Wahl des Betriebssy- 

Cassette abspeichern. grammes sofort weitergemacht, stemes völlig unkritisch sein. Ge- 

Nach dem Laden meldet sich der es erleidet also nur eine sehr testet wurde der Spooler mit 

Spooler automatisch (auch nach kurze Unterbrechung. Der Spooler TRSDOS, GDOS, NEWDOS40, 

dem Laden von Cassette) und wird durch die Tastaturabfrage- NEWDOS80 und LDOS. Mit allen 

fragt nach der gewünschten Puf- routine im ROM regelmäßig an- Betriebssystemen war er voll funk- 

fergröße. Diese richtet sich nach gesprungen. Er testet d. Puffer ob tionsfähig, sowohl im BASIC als 

Menge der auszudrückenden Da- evtl. Daten an den Drucker aus- auch im. DOS-Mode. Z.B. funk- 
ten und nach der Geschwindig- zugeben sind. Ist dies der Fall, gibt tioniert auch die Funktion ,J KL' 

keit, mit der diese anfallen. Die er 1 Byte an den Druckerausund des NEWDOS80 zum Bildschirm- 

Puffergröße kann in Schritten zu springt zurück. Sind keine Daten ausdfuck. Überhaupt läuft der 

je 1 K eingegeben werden. Die auszugeben, geschieht weiter Spooler mit allen Programmen, die 

Eingabe selbst geschieht durch nichts. die Druckerausgaberoutine des 

drücken der entsprechenden Zif- Der Puffer ist „umlaufend" or- ROM's benutzen. . 
ferntaste. Soll die Puffergröße ganisiert. Das heißt: Wenn Daten ich wünsche Ihnen viel Freude 
mehr als 9 K betragen, so ist die aus der Mitte des Puffers an den und Zeitersparnis mit dem Spoo- 
Gesamtgröße als Summe einzuge- Drucker ausgegeben werden, wer- ler. 
ben. Wenn Sie also z.B. eine Puf- den die Daten, die am Anfang des 

fergröße von 20 K benötigen, Puffers stehen bereits wieder mit : 

• **-*****# + * ********************************** * 

•*** * Sei bstre Toc i erender Drucker-Spooler *** 

;*** Copyright (c) 1984 by +** 

. ;*** Rainer Schmies *** 


DRUCKER- 
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;*** Niehler Strasse 325» 5000 Koeln 60 *** 
;*** Tel 0221/714426 + ** 
• *** *'******************************************* 


ORG 


6000H-1A6H 


{Anfang des Programmes im Speicher 


; Ab hier meldet sich der Spooler, fragt nach der gewuenschten Puf f ergr oesse 
;und berechnet entsprechend den Eingaben und dem vorhandenen Speicherplatz 
{alle im eigentlichen Spoolerteil vorkommenden direkten Sprung- und Lade- 
;addressen. Diese werden in den Spooler geladen, der anschliessend 
;an seinen endgue l.t i gen Platz verschoben und initialisiert wird. Da es sich 
{dabei lediglich um immer wieder gleiche Ladebefehle handelt, gehe ich auf 
{■diesen Teil' des Programmes nicht naeher ein. 


SPEI1 

BEGIN 


LOOP 


UEIT 


ULO 


DEFS 

CALL 

LD 

LD 

LD ' 

LDIR 

LD 

LD 

LDIR 

LD 

LD 

LDIR 

LD 

LD 

LD 

CALL 

CALL 

PUSH 

LD 

CALL 

POP 

CP 

JR 

SUB 

JP 

CP 

JP 

LD 

LD 

LD 

ADD 

LD 

JR ; 

LD 

LD 

LD 

LD 

ADD 

DJNZ 

LD 

LD 

LD 

LD 

LD 


2 

457 

HL, TEXT 
DE , 3CÜ0H . 
BC.27 

DE.3C40H ' 
BC , 64 

DE.3CC0H 
BC ,42 

HL , 3CC0H+43 

(4020H) »HL 

HL , 0 

49H 

33H 

AF 

A. 2BH 
33H ' 

AF 

13 

Z »UEIT 
48 

n,LOOP 

57 

P , LOOP 

B, H 
H, A 
A,B 
A,H 
H, A 
LOOP 

A, H 

B, A "/ 

HL , 0 
DE, 1024 
HL , DE 
ULO 

(SPEIl ) ,HL 
HL , 8000H 
A , 1 1 1 
(HL )., A 
A, (HL) 




** 


** 


** 




t**' 
■><? 




** 




** 


*** ; 


* 

* 














* 

* 


«*** 
* **** 
**** 


*** 


** 


** 


* 

* 

* 

** 


GENlt 


\\ + W 


TBS80 


KILO 


NEHMEN SIE DIE VORTEILE WAHR ... 


LD 

HL , 7FFFH 

JP 

NZ.KILO 

LO 

HL.OCOOOH 

LD 

A.lll 

LD 

(HL).A 

LD 

A, (HL) 

CP 

111 

LD 

hl.obfffh 

JP. 

NZ.KILO 

LD 

HL , OFFFFH 

LD 

A,H 

INC 

A 

LD 

(60Q4H) , A 

SCF 

CCF 

'* r * 

LD 

DE, (SPEI 1) 

SBC 

HL, DE 

LD 

DE , 0A5H 

SBC 

HL , DE 

LD 

(SPEI1 ) ,HL 

LD 

DE.20H 

■, ADD 

HL, DE r 

LD 

(6019H) , HL 

LD 

DE, 2 

ADD 

HL, DE 

LD 

(602CH) , HL 

• LD 

(605FH) ,HL 

LD 

(6067H) , HL 

LD 

(6079H) , HL 

LD 

(6099H) ,HL 

LD 

DE, 2 

ADD 

HL, DE 

LD 

(6030H) ,HL 

LD 

(603FH) , HL 

LD 

(606BH) , HL 

LD 

(607CH) , HL 

INC' 

. HL , 

INC 

HL 

LD 

(600FH) .HL 

LD 

(6080H) , HL 

INC 

HL 

INC 

HL 

LD 

(6006H) , HL 

LO 

(6035H) , HL 

LD 

(6056H) ,HL 

' LD 

(6090H) , HL 

INC 

HL 

LD . 

(6001H) , HL 

LD 

DE, 74H 

ADD : 

HL, DE 

LD 

(605CH) , HL 

LD 

(6096H) ,HL 

LD 

DE, 4 

ADD 

HL, DE 

LD 

( 603BH ) , HL 

LD 

DE, 4 

ADD 

HL, DE 

LD 

(6022H) ,HL 

LD 

(6024H) , HL 





minm 

BESTELLUNGEN AN 

HÜBBEN-Software, Mühlbachstr.2, D-5429 Marienfels 


ALS ABONNENT ERHALTEN SIE DIE 
GENIE DATA 

SOFORT BEI ERSCHEINEN MIT DER POST 

**************************************** 

► DIE 

GENIE DATA ERSCHEINT 
. ALLE ZWEI MONATE 
f EINEN FESTSTEHENDEN 
F E RSC H El N UNGSTAG 

GIBTS NICHT MEHR. 

************************** 

DIE REDAKTION 
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LD 

LD 

LD 

LD . 

SBC 

LD 

LD 

LD 

LD 

", LDIR 
LD 
LD 
CP 
JP 
; LD 
LD 

• CP- • 

JP 

LD 

JP 

TEXT DEFM 
DEFM 
DEFM 


(6076H) , HL 
(609EH) .-HL 
(60A2H) , HL 
DE , 40H 
HL , DE 
(6012H) , HL 
HL ♦ 6000H 
DE, (SPEI 1 ) 
BC.0A5H 


(HL) * ° .. **** 

NZ ’° ,,**** ^^^\\\\ ! 
HL.TEXT+83 ** \ 

(Hu" 

HU (SPEI 1), 

(HL) 

’ DRUCKER-SPOOLER VERSION 3.2’ 

'COPYRIGHT (C) 1984 BY RAINER SCHMIES NIEHLER STR 
* UIEVIELE KILOBYTES PUFFER BENOETIGEN SIE ?’ 


Hier beginnt der eigentliche Spoolerteil 


6000H 
HL.DCB 
A , 0 

(UERT) , A 
(4026H) ,HL 
HL, (4016H) 
(SAVE) ,HL 
DE, START 
(4016H) , DE 
HL , $-$ 
(40B1H) , HL 
FLOPPY 


Drucker DCB auf den Spooler verzweigen 
lassen. Die Druckerausgabe erfolgt nun 
ueber den Spooler. 


Den alten Uert des Tastatur DCB retten 
um den Spooler mit allen Betriebssystemen 
kompatibel zu machen. Anschliessend 
Tastatur DCB auf Spooler verzweigen. 

HIMEM bzw. MEM-Size setzen damit 
das Programm geschuetzt wird. 

Test ob Disk oder Tape System. 
Initialisierung beendet. Ruecksprung. 


{Uichtige Speicheraddressen die vom Spoolerprogramm benutzt werden 


ADR1 

ADR2 

SAVE 

UERT 


DEFU $-$ 

DEFU $-$ 

DEFS 2 

DEFS 1 


Zeiger: Auszudruckendes Zeichen im Puffer 
Zeiger: Naechster Freier Pufferplatz. 
Hierhin wird Tastatui — DCB gerettet. 
Kennbyte fuer vorhandene Speichergroesse. 


In diesem Teil des Programmes werden die auszudruckenden Zeichen 
in den Puffer des Spoolers geladen. Dieses geht schneller als 
eine direkte Ausgabe auf den Drucker. 


{Auszudruckendes Zeichen in den Akku laden 
{Alle Register ausser AF retten. 

{Die beiden Zeiger in die Register 
{ HL und DE laden., 

{Auszudruckendes Zeichen in Puffer laden. 
{Zeiger #2 erhoehen. 

{Testen ob das Ende des verfuegbaren 
{Speichers (Puffer) erreicht wurde. 



Dalum 


[01111 E RS I 


WERSIBOARD 


EEHD FÜR COMMODORE C 64/SX 64 

Personal Computer music — 


Das WERSIBOÄRD-SYSTEM MUSIC 64 besteht aus einem Orgel-Manual im Commodore 
Design, einem Interface-Modul und zugehöriger Software. Gemeinsam mit dem 
Commodore VC 64 entsteht ein Musikinstrument mit bemerkenswerten Fähigkeiten. 


Komplett-Paket bestehend aus: 

KEYBOARD 

— 49 Tasten, 4 Oktaven C-C 

— PROFIFORMAT 

— Gehäuse aus stoßfestem Kunststoff 
im Commodore-Design 

— Interface-Modul mit Verbindungs- 
kabel, anschlußfertig 




mmm 

|| 


j 





wmmrnmm 

• V' 



Y HEU 


SOFTWARE 

— auf 5 '/< " Diskette 

— Programm MONO 64 — 
monophoner Synthesizer 

— Programm POLY 64 
polyphones Keyboard 

— Klangfarben direkt am PC 
veränderbar 


EINFÜHRUNGSPREIS DM 495,- 

i . v tiT .i i. v. . . . i.. . . . n . i x imrr»» & 


Direkt ab Werk, noch heute bestehen! 


inkl. MWSt. 


Absender 


Orgei- und Piano-Bausätze 
Industriestraße 
5401 Halsenbach 
Telefon (06747) 7131 
Telex 42323 


BESTELLCOUPON 

Das WERSIBOARD MUSIC 64 ist Klasse 

□ Ich bestelle zu sofortiger Lieferung das 
WERSIBOARD MUSIC 64 zum 

Eintu hrungspreis von DM 495,- 

- zuzgl Versar.dselbslkosten — 

gewünschte Zahlungsart 

□ Scheck ist beigefügt 

□ per Nachnahme 


Unlerschrilt 

Beste! Icoupan abtienner. und an Weis: senden — 
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LD 

A , D 

CP 

B 

CALL 

z.$-$ 

LD 

($-$> , DE 

LD 

A.H 

SUB 

D 

JR 

NZ.DCßl 

LD 

A.L 

SUB 

E 

JR 

NZ.DCBl 


{Uenn ja: Zeiger neu initialisieren. 
{Gueltigen Uert des Zeigers abspeichern 
♦Testen ob der Puffer voll ist. Denn 
:ja, ein Zeichen ausgeben um Platz 
;fuer weitere Zeichen zu schaffen. 


Ab hier wird jeweils ein Zeichen auf den Drucker ausgegeben um Platz im 
Puffer zu schaffen wenn dieser voll ist. Dadurch wird sichergestellt 
dass keine Zeichen verlorengehen koennen und das der Druckvorgang 
mit der hoechstmoeg 1 i chen Geschui nd i gkei t. ab laeuf t . 

; Dr uckerst atus in Akku laden. 
•.Flags fuer BUSY und PAPER OUT testen. 
:Uenn keine Ausgabe moeglich, warten. 

;Zu druckendes Zeichen in Akku laden 
:und auf den Drucker ausgeben. 

:Zeiger #1 erhoehen und gegebenenfalls 
; neu initial isieren. 


{Gueltigen Zeigerwert abspeichern. 

;Alte Registerinhalte zur-ueckho f en . 

: n i t dem aufrufenden Programm we i t ermachen . f 

Es wird jeweils bei der Tastaturabfrage 


jAlle Register ausser AF retten. 

;HL und DE mit den gueltigen Zeigerin- 
{halten laden und kontrollieren ob noch 
{Daten auf den Drucker auszugeben sind. 

{Denn nicht werden die Zeiger auf ihre 
;Ausgangswert e gesetz und zurueckgesprungen- 


DCBLOP LD 

A. (14312) 

AND 

192 

JR 

NZ. DCBLOP 

LD 

A, <HL ) 

LD 

(14312) ,A 

INC 

HL 

LD 

A, ($-$) 

LD 

B,A 

LD 

A.H 

CP 

B 

CALL 

Z.$-$ 

LD 

<$-$) , HL 

DCB1 EXX 

JP 

1D79H 

:Ab hier wird 

’ GESPOOLT' . 

{ein Zeichen 

• 

auf den Druct 

START EXX 

LD 

HL, <$-$) 

LD 

DE, ($-$> 

LD 

A.H 

SUB 

D 

JR 

NZ , RAUS 

LD 

A.L 

SUB 

E 

JR 

NZ., RAUS 

LD 

HL , $-$ 

LD 

($-$) , HL 

LD 

($-$) , HL 

ENDE EXX 

LD 

HL, ($-$) 

JP 

(HL) 

* 

{Hier beginnt 

die Druckroi 

RAUS LD 

A, (14312) 

AND 

192 

JR 

NZ .ENDE 

LD 

A, (HL) 

LD 

(14312) , A 

INC 

HL 

LD 

A , ($-$) 

LD 

B , A 


GENIE U» + ,U 
TBS 80 


;Hier werden die alten Reg i st er i nha 1 1 e 
; zurueckgehol t und die eigentliche 
{Tastaturabfrage gestartet 


;Den Akku mit dem Druckerstatus laden. 
jStatusflags austesten. 

{Denn Drucker nicht bereit, Ruecksprung. 
;Uenn bereit, Zeichen an Drucker schicken. 

{Kontrolle ob Pufferende erreicht wurde. 
{Wenn ja, Zeiger neu initialisieren. 


GENIE DATA 11 



LD 

A.H 

" . * ■ ‘ - ■■ .. ■ ■; 


CP 

B 



CALL 

z,$-$ 



LD 

($-$) , HL 

{Gueltigen Uert des Zeigers abspeichern 


JR 

ENDE 

{■Spool erteil 'verlassen. 

NEU1 

LD 

HL,$-$ 

{Zeiger #1 neu initialisieren. 

RET 



NEU2 

LD 

DE ,$-$ 

{Zeiger #2 neu initialisieren. 

LABEL 

RET 



FLOPPY 

LD 

A. (400CH) 

{Hier uird getestet ob eine Floppy 


LD 

(4049H) .HL 

{angeschl ossen ist. 


CP 

0C.9H 



RET 7 

NZ ■ 

{Wenn ja, Ruecksprung zum DOS. 


JP 

, 06CCH 

jlJenn nein, Ruecksprung ins L II Basic. 


ORG 

41E2H 

{Autostart fuer Kassettensysteme 


JP 

BEGIN 

{organisieren. 


END 

BEGIN 

..{Ende des Programmes. 
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10 POKE8fH4öB 1 . 30 : F'0KES<H40B2 , 180: CLEAR500: CHAR1 : DEFT.NTA-Z: DI MC (4) ,0(4) , T < 4 ) , 
B < 1 6 > , N < 1 00.) , M ( 500 ) , PX ( 1 6 ) , P Y ( 1 6 ) , BA ( 1 6 > 

20 C0L0UR1: CL5 • 

21 PRINT: PRINT: PRINT" Um in der hochau-f 1 oesenden Grafik zu schreiben mus 

s ich einige Daten sortieren." 

22 PRINT" Das dauert ungefaehr 2 Minuten." 

23 PRINT" Bitte etwas Geduld" 

30 FCLS: PD=38: GQSUB2990: FC0L0UR3: PL0T0, 0T0159, 0TQ159, 63T00, 63TÜ0, 0: PAINT1 , 1 
,3,3: PX=44 : PY=S : PF=-3 : P.S*= " L-Sp i e 1 " : G0SUB2950 : PX=4:.PY=40 s PF»2: PS$= " Brauch 
st du eine":GDSUB2950:PX=44:F'Y=50:PS$="Erklaerung " : GQSUB2950 
40 PS*=STR I NG$ < 1 6 , 32 ) + " L-Sp i e 1" +STR I NG* ( 57 , -32 ) : (50SUB4O6O : COLOUR 1 : CLS : PR I NTP 
S$:P8$="":PZ*--"" 

50 FGR: PX=132: PL=1 : PF--2: G0SUB2740 

60 I FP I " J " THENAN= 1 ELSE I FP I $< >"N"THENG0SUB287O: G0T06OELSEAN=O 
70 PF=-2: PX=4: PY=40: PL=16: G0SUB2930: PL=13: PY*=50: PX=44: GQSUB2930 
80 I FAN= 1 THENG0SUB255G 

90 RANDOM : FC0L0UR1 : PL0T35, 10T0120, 10T0120, 63T03S, 63T035, 10: FC0L0UR4: PL.0T36, 
1 1TÖ1 19, 11 TOI 19, 62T036, 62TQ36, 12TÖ1 IS, 12TQ1 18, 61T037 , 61TÜ37 , 12 
100 GOSUB 1 1 0 : G0TD2 1 0 
110 REST0RE 


12 GENIE DATA 


120 
130 
1 40 
150 
160 
170 
180 
190 


210 

220 


DATA 40,60,80, 100,22,34,46,58 

DATA 1, 16,2,7,6,6, 11,7, io, 15, 10,3, 14, 11 

DATA 3, 2, 2, 0,0,2, 1,0, 0,2, 1,0,0, 1, 1,3 

F0RI=1T04: RE ADR X ( I > : F0RJ=1TQ3: PX (4#J + I)=F'X (I) : NEXT : NEXT 
FÜR I = 1 TG 1 3STEP4 : READPY ( I > : FOR J = 1 T03 : PY ( I + J ) =PY ( 1) : NEXT : NEXT 
READB 1 , B2 ' 

F0RX = 1T04: READC(X) ,.0(X> ,T(X> :NEXT 
FORX = 1 TOI 6: READB ( X ) : BA ( X ) =-l : NEXT 
RETURN 

.S0SUB2470 : I FAN= 1 THENAN=0 : G0SUB2600 

LGR : COLOUR 1 : PRINTS 120, CHR® (31) ; "Es gibt zwei Moeqlichkeiten das 


Spiel zu beginnen 


(1) Mit der normalen Anf angsstel 1 urig . 


(2) Mit beliebigem Reinlegen der L’s 
d.h. die L'S befinden sich am 
Anfang " 5 

230 PRINT" ausserhalb des Feldes 

und die Kaestchen in der Mitte 
! des Fel des. 


^ 0 |. 0 Uft 


Waehle eine der Moegl i chkei ten ! ! " 

240 A® = I IMKEY ® : I F A® < > " 1 " AND A®< > " 2 " THEN240ELSEPR I NT " 


GOS 


Ist' ("A®") richtig (J/N) ?" 

250 B®= INKEY®: IFB*="N"THEN220ELS£IFB*< >" J "THEN250 
260 I FA®= " 1 " THEN280 

270 Bl =6: B2=l 1 : F0RI = 1T04: O ( I ) =0: C (I ) =0: NEXT.! F0RI = 1T016: B ( 1 ) =0i NEXT: B (Bl ) =3: 1 
B <B2> =3: G0SUB2470 

280 FGR: PF=-2: PX=0: F'Y=79: F'S®=" Wi 1 1 st du anfangen" : GDSUB2950: PX=144*. PL=1 ; 
UB2740 T 

290 I FP I ®= " N "THEN8 1 OELSE I FP I ® < > " 3 " THENG0SUB2870 : G0T0290 

G0SUB2710: PF=2: PX=4: PY=71 : pS®-"Dein Zug des L":G0SUB2950 
PF=-2: F'Y=79: F'L=2: FORI— 1T04 
PX=*32#T-16: G0SUB2740 
I FP I ®= "" THENGDSUB2870 : G0T0330 

IFRIGHT® (PI®, 1 ) < "CORRIGHT* (PI®, 1 > >"9"THENGÜSUB2870: G0T0330 
I FLEN ( P I ® ) =2THEN I FLEFT® < P I * , 1 > < > " 1 " THENG0SUB2870 : GDT0330 
D ( I ) = V AL ( P I ® > : I FD < I > > 1 6THENG0SUB2870 : G0T0330 
NEXT .«##*** 


300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 


ouu 

510 

520 

530 

540 


IFD ( 1 ) +D (2) +D (3) +D ( 4 ) =OTHEN 1 560 ■ 
F0RX=1T04 
F0RY=2TD4 

IFD (Y)‘>D (Y-l ) THEN450 
Z=D ( Y) 

D ( Y) =D (Y-l ) 

D (Y-l) =Z 
NEXTY 
NEXTX 
F0RX=1T04 
N ( X ) =D ( X ) 

NEXT 
NI =4 
F 1=0 

GQSUB2010 
IFM104THEN1500 
FORX= 1T04 




*»* 


*** 


#** 


•n 


*** 
* 

* 

* 

* 
# 
* 


: r eo 


* 

# 

* 
* 


...*•***** 


*** 


* ■ 

* 7 . 

• *. ■ 

' •' * i 

' * 
*** 




777. . 

7 - : ' 


GENIE DATA t3 


□50 IFB(M(X> ) MTHEN1500 
560 NEXT 
570 .F0RX-1T04 
580 B ( 0 ( X ) > =0 


590. NEXT ' 1 /rOV-0 0 ^ ) 

600 F0RX=1T04 ' 

610 BÜ1(X) )-“l. . ' W ' - 

620 ü .( X ) =M ( X ) 

630 'NEXT 7 

640 G0SUB2.470 

650 B (Bl ) =0 

660 B ( B2) =0 ' • . 

670 PF=2aPX=4: F'Y=87| PS$="‘Zug der Kaestchen" s G0SUB2950 

680 PY=95 : PF=-2 : PL=2 : I =0 

690 I*T+l i PX® 1*32-16: S0SUB2740' 

700 IFPI*=" "THENG0S.UB2870: GQT0700 

71p IFRIGHT$ (PW, 1 X " 0 " ORR I.GHT $ < P I $ f 11 >'•' 9" THENGDSUB2B70 : G0TD700 
720 IFLEN ( P I $ > =2THEN I FLEFT* (PI$, 1 ).<>" 1 "THENGQSUB2870 ; GQT0700 
730 I F V AL (PI$)<1 DR VAL (PI*). > 1 6THENG0SUB2870 : G0T0700 
740 IFI=1THENX=VAL (PI*) : G0T0690 6 


* kgih* ■■■ *** 


* k‘ ^7, Una a, H 




740 IFI=1THENX=VAL (PI*) : G0T0690 , 

750 Y=VAL(.PI*) 

760 IFX=YTHEN 1520 . 

770 IFB(X) +B(Y) >0THEN1520 • . 

780 B1 = X:B2=Y . 

790 B(B1>=3iB(B2.X3 
800 G0SU82470 

810 F0RX-1T04 7 

820 B ( C ( X ) ) =0 ******* 

830 NEXT 1 . jfc ****** 

850 Fl-1. * Z Ip "e„ L °ST „ ****** 

860 N 1 = Z l S&* * 

870 G0SUB2010 * . rW * ' 

880 I FM 1 — OTHEN 1 580 * *ö®j, * 

890 GOSUB 1620 * * 

900 F0RE=0T0M1-4STEP4 * ®ti*t . 

910 F0RF=1T04 * S c * 

920 F0RG=1T04 * ^ ^ * ' ■ 

930 I FM .( E+F ) < >T ( G ) THEN950 *** e ^t * , * 

940 N (E/4+1 ) =N (E/4+1 ) +1 ****** ’ * 

950 NEXTG . • ****** ' ‘ . 

960 NEXTF ***** * 

970 NEXTE ***** 

980 GOSUB 1730 • 7 

990 Y=(Z-1> *4 : 7 : . .7 

1000 F0RX=1T04 7 

1010 C (X ) =M ( X+Y) • ; 

1020 B (C ( X ) > =2 
,1030 NEXTX 

1040 6DSÜB27'd;0 : PF =2 : P X=0 : P Y=7 1 s PS$= " Der Computer sieht": GD8UB2950: PY=79 : F‘S$ 

= "nach " : FÜR I ==. 1 T04 : PS$=PS$+R I GUT $ ( STR$ ( C ( I ) ) , LEN (STR$ (C ( I ) ) ) — 1 ) .+ " , " : NEX Ts.PB 
*=LEFT* (PS*. LEN (PS*) -1 > : GDSUB2950: GDSUB2470 , ' ' 7\ 7 7‘ ; 7 ' 

1050 B ( B 1 ) =0 
1060 B(B2)=Q 
1070 FOR I - 1 T04 

1080 F0RJ=1T04 , 7 

;i090 IFO ( I XT < J) TJHEN1 130 

1,100 NEXTJ . " 

1.1 IO NEXTX 

1120 GOTO! 270 X 








IMIMI 1 

’v - ' . i«. » - • -s i 






14 GENIE DATA 


1130 F 0 RX : = I. TG 4 

I . 1 40 I FB ( T ( X ) ) > 0 THEN 1 1 BO 
1 150 B 1 =T (X) 

1160 BCB 1).=3 
1170 GOTO J 20 Q 

II . 80 NEXT 
1 190 GOTO 1270 
1200 F 0 RX= 1 TÖ 4 
1 2 10 I FB ( T < X > > >OTHEN 1 250 
1220 B 2 =T(X) 

'1230 B(B 2>=3 
1,240 GOTO 1330 
1250 NEXT 
1260 GOTO 1300 
1270 GÜSUB 1830 
1280 B 1 =B 3 
1290 B (Bl.) =3 
1300 G 0 SUB 1830 
1310 B 2 =B 3 
1320 B ( B 2 ) =3 

1330 PX= 0 :PY= 87 :PF= 2 : PS«»" und bringt di e" : 60 SUB 2950 : PY= 95 * PS*«" Kaest ehern 
ch "+STR$ (Bl ) + " , "+RIGHT$ <STR$ <B 2 ) , LEN (STR* <B 2 > > - 1 > : GÜSUB 2950 
1340 F 0 RX= 1 T 04 
1350 B C 0 ( X ) ) - 1 
1360 NEXT 
1370 G 0 SUB 2470 
1380 FDRX= 1 T 04 
1390 B < 0 (X ) ) =0 ' 

1400 NEXT 
1410 G 0 SUB 1660 
1420 . Fl ~2 
1430 N 1 =Z 
1440 G 0 SUB 2 Ö 10 - 
1450 I FM 1 =OTHEN 1 560 
.1460 FDRX-- 1 T 04 
1470 B ( 0 ( X ) ) -1 
1480 / NEXT 
1490 GOT 030 G 

1500 PXp'Oj PY» 79 ; PF= 3 : PS«»"- Unaueltiger Zug " : G 0 SUB 2950 : G 0 SUB 1540 
1510 GQT 0310 

1520 P.X= 0 : PY= 95 : PF= 3 : PS«=" Ungueltiger Zug " : GOSUB 29501 GÜ 8 UB 1540 
1530 G 0 T 0680 

1540 FORT= 1 T 0200 Ö: NEXT : PL= 20 : GDSUB 2930 

1550 RETURN . . 

1560 G 0 SUB 27 10 : PY= 79 : F'X= 0 : PF=-i : PS«="Der Computer qewi nnt " : GDSUB 2950 
i 570 GOTO 1590 ’ 

1580 GQSUB 2710 : PX= 4 : PY= 79 : PF=- 2 : PS$= |, Du hast gewonnen t " s G 0 SUB 2950 

1.590 PX = 12 : PY- 95 : PS*=" Nochmal " : PF=- 3 : G 0 SUB 2950 : PX= 68 : PF= 3 : F'L= 1 : G 0 SUB 274 C 

1600 I FP I *= " J " THENG 0 SUB 27 1 0 : G 0 T 090 ELSE I FP I *< > " N " THENG 0 SUB 2870 s GOTO 1 600 ' 

1610 CLS : CQLOUR 1 , : END 

4.620, F0RX=1T0100 

1630 N (X ) =0 

1640 NEXT 

1650 RETURN 

1660 2=0 . 

.1670 F 0 RX= 1 T 016 i 
1680 I FB ( X ) >OTHEN 17 1 0 
1690 Z=Z +1 

1700 N(.Z)=X : - 

1710 . NEXT ... 


um lust «ehr zu« * 

IPPEH?'?'? e meisten 

i.es eS U p ro graro me 

nder ln Sie jetzt, im 

:oenn o c <3 ERUIC^ er ' 

50FTUAR£'SE auen sie 

leite IS in 


* 

* 

* 

* 

* 



GENIE DATA 15 


1720 
1730 
1740 
1750 
1760 
1770 
1.7 BO 
1790 
1 800 
1810 
1 820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2 1 90 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 



RETURN 
Y=0 
Z='l 

F0RX-1T0M1/4 
I FN (XX YTHEN 1810 
I FN (X ) >YTHEN 1 790 
IFRND(O) >. 5THEN1 810 
,Y=N ( X ) 

2=X 
NEXTX 
RETURN 
F0RX=1T04 
B (0 < X ) ) =0 ,] 

NEXT I 

GUSUB1660 
Fl =2 
Ni =Z 

G0SUB2010 
G0SUB1 620 
FORX= 1T0M 1 
N(M(X> )=N(M(X> )+l 
NEXT . 

FDRX=1T04 
N ( 0 ( X ) ) =0 
NEXT 
Ml =64 
GOSUB1730 
B3=Z 
RETURN 
M 1 =0 
J=4 
K=1 

GDSUB2090 
J=1 
K=4 

G0SUB2090 
RETURN 
P =0 
R=F'+1 
A ( 1 > =N(P) 

X=P 
X=X+1 
IFX>N1THEN2260 
IFN (X) -A < 1 X >JTHEN2130 
A (2) =N (X) 

X=X+1 

IFX >N1THEN2260 

IFN < X) -A (2) < >JTHEN2170 

A (3) =N ( X ) 

F0RE=1T0N1 

IFABS <N <E> -A (1 ) ) =KTHEN22B0 

IFABS (N <E> -A (3) ) =KTHEN2280 

NEXTE 

GOT02100 

I FP< N 1 — 2THEN21 00 

RETURN 

A (4) =N (E) 

F0RF=1TQ4 

IFA (F) / 4< > I NT < A ( F ) /4)THEN2340 


Der GENIE DATA SOFTWARE SERVICE 
läuft ! Ab sofort können Sie fast alle Programme 
aus der GENIE DATA auf MasBenspeicher er- 
halten. Diese Gelegenheit sollten Sie nutzen! 
Jetzt ist es nicht mehr nötig, ein gewünschtes 
Programm Zeile für Zeile per Hand abzutippen ! 
Bestellen Sie sich einfach eine Diskette oder 
Cassette beim SOFTWARE SERVICE, und 
schon kann cb losgehen ! 

Aus dieser Ausgabe gibt es : 

COLOUR GENIE: 

Das L-Spiel auf Diskette und Cassette. Preis 
für eine Diskette: 86,- DM und Preis; für eine 
Cassette : 29,- DM. 

GENIE I, n,III, TRS 80: 

Drucker Spooler, nur auf Diskette. 

Um das Format Ihrer Diskette feststellen zu 
können, brauchen wir von Ihnen eine forma- 
tierte Diskette, mit Betriebssystem. Auf diese. 
Diskette kopieren wir den Spooler und senden 
Sie Ihnen umgehend zurück. 

Der Spooler ist auf Cassette im SOFTWARE 
SERVICE nicht erhältlich. ' 

Lieferbedingungen i 

Der Versand von Datenträgern im SOFTWARE 
SERVICE ist per Vorkasse und per Nachnahme 
möglich. Der Nachnahmebetrag ist der Gesamt- 
preis zuzüglich 5,20 DM Porto- und NN-Gebühr. 
Wenn Sie per Vorkasse bestellen (dann der 
Bestellung einen Scheck beilegen!) entfällt 
Porto und Verpackung für Sie. 

Wir werden versuchen, auch Programme aus äl- 
teren Ausgaben der GENIE DATA im SOFT- 
WARE SERVICE verfügbar zu machen. Mehr 
dazu steht in der nächsten GENIE DATA. 

BENUTZEN SIE DIE BESTELL-KARTE 
IN DIESEM HEFT!!! 



16 GENIE DATA 


2310 
2320 
2330 
234.0 
2350 
2360 
2370 
2380 
2390 
2400 
24 1 0 
2420 
2430 


* 
* 

* 




**** 


*** 




*** 


*** 


*** 


ZUti 


ko 


r ©n 


* 

* w.- 


h 'c 


di« 


* die se m 


enne ^ s^C l3ten 


*** 


*** 


t » t 


u ©n 


15 


ei-~ 
Si e 


in 


>440 


*** 


*** 


*** 


**** 


**** 


* 
* 
* 

*■' 

' , * 

* 

* 

* 

* 

* 

* 


*** 


FORG*1T04 

IFA <G) =A (F) +1 THEN2240 
NEXTG ;• 

NEXTF 

FQRY=1TQ4 i 

I FF 1=1 T.HEN2390 
I FA ( Y > < >0 ( Y ) THEN2.420 
GDT024QÖ 

IFA (Y) < >C (Y).THEN2420 
NEXTY 
G0T02240 

F0RY=1T04 , ’ , ' ‘ ' 

M (Ml+Y) — A ( Y) 

NEXTY 

2450 M 1 ; =M 1 -i-4 

2460 .G0T02240 - " 

2470 F0RX=1 TO 1 6: I FBA ( X > =B < X ) THEN2490ELSEPX=PX ( X ) : PY=PY ( X > 

2480 ONE (X ) +1GOSUÖ2500, 2520, 2510,2530 
2490 NEXTs F0RX=1T016: BA (X) =B <X) : NEXT: RETURN 

2500 RF=3:PS*=RIGHT* (STR«' (X) , 2) : G0SUB295O :FC0L0UR4: G0T02540 
25 10 PF«- 1 : PS*« " CG " : G0SUB2950: FCDL0UR2: GDT02540 
2520 PF®-2: PS*« "SS" : G0SUB2950: FC0L0UR3: G0T02540 
2530 PF«— 3s PS*= : R I GHT *•( STR* ( X ) , 2) : G0SUB2950: FCDLÜUR1 
2540 PLOTPX-2, PY+2T0PX+17, PY+2T0PX+17, PY-9T0PX-2 , PY 
1TÜPX+16, P.Y-8T0PX-1 . F'Y-BTOPX-l , PYs RETLJRN ' 

2550 COLOURIÖ .. 

2560 PRINTS 120,. "Das L-Spiel Wird von 2 Spielern auf 

einem 4 «mal 4 Spielfeld gespielt. • 

Jeder Spieler hat als Spielfigur ein L .Dieses kann der Spieler der am Zug 

ist , 

beliebig setzen. Das L darf nicht ueber 

den Spielf eldrand ragen und kein anderesTeil " ; 


2570 PR,TNT"zudecken. Es besteht Zugzwang 


kann 
und 
2590 
vi er 
soll 


die 


CLOU* 


GEN* 


2630 

PZ*t : 

2640 

2650 


2660 A*= I NKEY* : I FA*< >CHR* (13) THEN2660 


2670 FCQL0UR3: F0RPX=125T0157: PLOTPX, 7T0PX, 55s NEXT 

2680 FC0L0UR.3 : PL0T3 1 , 15T034, 18T031 , 21 : PLQT3.4, 18T024, 18T024.63 

2690 G0SUB2710 


m 


GÜT02540 

9T0PX-2, PY+1T0PX+16, PY+ 


f 




m 


Es gibt noch zwei Kaestchen, die von demSpieler, der am Zug ist beliebig au 
' f . '■ 

freie Felder gesetzt werden Koennen. " 

2580 PRINT "Der Spieler der sich, nicht mehr bewegen 

hat verloren. Das Ziel des Spieles ist es also den Gegner festzusetzen 
sich selbst genug Platz freizuhalten." 

PRINT"Das L wird gesetzt," indem einfach 
Koordinaten auf denen es liegen 
eingegeben werden. Zum Auf geben' 
wird 0,0, 0,0 eihgegegen. 

Alle Eingaben sind mit RETURN abzu- 
sch 1 i essen. ":LGR: RETURN 

2600 PX=4: PY=87 : PF=— 2: PS*“"S: L des Spielers 
C: L des Computers " : GQSUB2950: PY==79: PF=-3: PS*=”Die Kaestchen " : GOSUB2950 
2610 FCQL0UR4: PL0T24, 71T024, 64: FCQLQURT : PL.0T24, 63T024, 18TÜ34, 18TÜ31, 15: PLOT 
34, 1 8T03 1,21: FCQL0UR4 : PLOT 1 11 , 7 1 TQ 1 1 1 , 64T0-1 08,67: PLOT 111, 64T0 114,67 
2620 PS*«" Weiter mit < RETURN > " : G0SUB4060: C0L0UR1 r ■’ 

A$= INKEY*: IFA*< >CHR* (13) THENPRINTS925, PS* ; : FORI «1T0500: NEXT: PRINT<§925, 

; F0RI=lTQ500s NEXT : G0T02630 . V " 

FGF< ; 

PF“— 2 : PX= 124 : A*-"Wei ter " : F 0 RI= 1 T 06 j PS*=MID* (A*, I , 1 ) : PY= 7 + 8 *I : GDSUB 2950 
: NEXT : PX= 136 : A*="mi t " : FORI = 1 TQ 3 : PS*=MID* ( A* , 1 , 1 ) : PY= 23 + 8 * 1 1 6 GSUB 2950 : NEXT: P 
X= 148 : A*=" RETURN": FORI = 1 T 06 :.PS*=M ID* (A*, 1 , 1 ) : PY= 7 + 8 *I : G 0 SUB 2950 : NEXT 


" : G0SUB2950 : PY=95 : PF*- 1 : PS*= " 
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VERSCH. Lohn-/Eink.-Steuer 
Progr. Info g. Rückporto : Gra- 
jewski, Zedernweg 29, 4220 
Dinslaken 

Soft-Drucker-Spooler f.CG z. 
Nebenbei Drucken! Info: M.l 
Pistorius, Kohlerstr.12, 7600' 
Offenburg 

VG-Buchhaltung mit raffi- 
nierten Möglichk. a.Cass. 64 
KB erforderl. Info kosten I. 
G.Greiner,Nusselstr.2, 8000 


VERKAUFE CG. 32K| Flop 
py, RGB, Rec. ca. 300 
Progr. . lit., VB 2000,-- 
Tel. 02173/15048 n. 17 Uhr. 

CG 32K Floating-Point-Forth 
m. Ramdisk, Vorauskasse DM 
30,-, R. Ott, Koch Weg 15 
7988 Wangen 

CG-Elektrotechnik-Lehrpro- 
gramm v.d. einf .Schaltung zur 
gem.Schaltg.32K,25,-DM, 
Cass., Udo Kühnemund, Wit- 
tenerstr.340, 4600 Dortmund 

COLOUR GENIE 32K. Cass.- 
Rec., Joyst., 50 Progr.,Bücher 
1 Jahr, DM 900,-,Tel.02943 
/3245. 

SUCHE Schaltpläne f. CG 
+Diskl. + Softw. * J.Aiche- 
le, Jusistr. 3, 7302 Ost- 
fildern-Z. 


VERKAUFE Diablo Drucker 
1620 für DM 1800,- Tel. 
08634/7442 

CG. 32K +TCC Cartridge + 
Joyst., Rec.,Softw.,Lit. zu 
werk. VB 1000,-,Tel.0208/ 
672842 

GENIE III, Neuw.; Drucker 
OKl-Microline 93 (NLQ), GE- 
NlE-TEXT, Z BASIC, 
Rs-Cobol, Newdos 80,GDOS 
zu werk.,Kompl.DM 7500,- 
Tel .07329/5906 ab 18 Uhr. 

GESUCHT für TRS 80 M III 
New-Dos 80+Bauani. f. V 24 
Schnittst, u. Belegung. CG 
Pinbeleg. Modem u. Progr. 

SUCHE Anschi. Kabel f. VG 
II f. 3.+4. Floppylaufw. Teac. 
J.Wucherer,Brauneggerstr.14, 
7750 Konstanz 


COLOUR GENIE, 1 J. alt, 
+ Softw., VB 450,- DM 
Tel. 0202/700851 

VERKAUFE Colour Genie 
32K, inkl. Softw., Lit. Rec. 
VB 600,- * M. Wolters 
Tel. 05341/260686 


VERKAUFE priv. CG u. 
Diskdoppellaufw. 32K/280K 
einschl.Softw. + Bücher VB: 

2 .300, -DM Tel. 0241/55 1560 
17-20 Uhr o. Chiff. m.Con- 
tr. u. Druckerkabel 

Neues Super-Lernprogramm 
f. Colour Genie Alles ü. den 
Mond m. jew.Möndphasen- 
grafik. 32K 20 Seiten Erläu- 
terung .DM 99,-. Info geg. 
Rückporto. H.Schumacher, - . 
42 Oberhausen 1, Eichstr.40 
Tel. 0208/878661 

COLOUR GENIE d. Alles- 
Könner f. Disk + Cass. ist 
da : Real-Comp. Info 80Pf. 
M.Maiers, Am Hang 4,2352 
Bordesholm 

SUCHE Light-Pen für Co- 
lour Genie * Mees, Baumweg 
14, 5206 Neunk.-Seelsch. 1 


CG-Adressverw., bis 500 Adr. 
(Cass.) sort., sucht, ändert, 
druckt Liste u. Etiketten. 
DM 49,- Tel. 02228/224353 

Top-Action-Adventure für CG 
32K, Info g. Rückp. b. D. 
Kirstein, Gartenstr.8, 4782 
Erwitte 


Colour DOS 

Hier ist das Buch für alle Colour Genie Disk-Besitzer. Unter anderem finden Sie hier : 

Einteilung einer Diskette, Formate der Filetypen, der File-Control-Block, öffnen eines Files, Initial- 
sierung, Bytes lesen und schreiben, Datensäue lesen und schreiben, Random-Acces-Routinen, Maschi- 
nenprogramm laden und starten, EOF-Werte in der Directory, Laufwerk anwählen und Laufwerk 
testen, Sektoren schreiben, prüfen und lesen, Directory-Sektor lesen und schreiben, Fehlermeldung 
ausgeben, Interrupt-Routinen einfügen und entfernen, Speichereinteilung mit Disk-Basic, Programm- 
beispiele, Kompatibilität mit Video Genie. 

Dieses Buch bringt Ihnen alles, was Sie wissen müssen um mit der Floppy vernünftig umzugehen, 
mit vielen Beispielprogrammen in Assembler. 

Nur DM 29,-. Lieferbar ab sofort! Also gleich bestellen! 1 1 

BESTELLUNGEN an Fa. Hübben, Mühlbachstraße 2, D-5429 Marienfels * Ausland Vorkasse + DM 5,-Porto 
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2700 RETURN 

2710 FCQLDLIR1 : FüRY=63T095: PLOTO, YT0159, Ys NEXT : RETURN 
2720 NEXT • 

2730 REM-**** Input *** 

2740 RA-FX: PV= (ABS (PF) -PF) 72+1 : PH» (ABS (PF) +'PF) /2+1 : FCÜLOURF'V: FORPJ =PV -7TQPY 
: PLOTPX+S, PJT0FX+8#PL+7, PJ: NEXT: FCOLOURPH: PF=-PF: P Z =6.3 : G0SUB2890 •" pF=-PF: PX = 
PX+8s FCOLOURPH; F0RPJ=PX+3T0PX+8*PL+2STEP8: F'LOTPJ , PY-1 : NEXT; PI*«" " : PN=0. 

2750 PC*= INKEY*: IFPC*=" "THEN2750ELSEPZ=ASC (PC*), s FCQLOURPV: PLQTPX+3, PY-1 s'lFP 
Z0-31ANDP2X i27THENPI*=PI*+PC*: GDSUJB2890: PN=PN+1 : IFPN<PLTKENPX=PX+B; GDTP?75.QE 
LSE2800 ' 

2760 IFPC*»CHR* ( 8 ) ANDPN >0 T H E N F CO L 0 U R P H : PLOTPX+3, PY- 1 : PX=P.X -8; PN=PN- 1 ; PI*=LE 
FT* ( PI * , PN ) ; FCQLOURPV : F 0 R P K ~ P Y - 7 T 0 P Y s PLOTPX , PKTOPX+7, PK: NEXT ; G0T02790 
2770 I.FPC*=CHR* ( 1.3) THENPLOfPX, PY-1T0PX+B*'(PL-PN) -1 , PY-1 : FCOLOURPH; FQRPK»PY- 
7T0PY : PLOTPA, PKTOPA+7 , PK; NEXT : G0TQ2850 

"2780 I FF'N >0ANDF'EEK ( &HF84G ) =32ANDPEEK.( ScHF'BBO ) ~ 1 THENPX =F'A : BO 1027 40 - 
2790 FCOLOURPH: PLOTPX+3, PY-1 : G0T02750 
2800 PLAY (1,4,5,15); F0RPK= 1 T020 : NEXT : PLAY (1,4, 5,0) 

28 1 0 PC*= INKEY*: IFPC*=" " THEN28 1 ÖELSE IFPC*=CHR* < 13) THEMFCOLOURPH ; F0RPK=PY+7T 
ÜPY: PLOTPA, PKTOPA+7, PK: NEXT: G0TÜ2850 

2820 I FPC*=CHR* (8) THENFCOLOURPVs F0RPK>PY-7T0PY; PLOTPX , PKTOPX+7, PK: NEXT: PM-P 
N--1 :.F'I*=LEFT* (PI*, PN ). : G0T02790 

2830 I FPEEK ( 0 HF 840 ) -32ANDPEEK ( &HF880 ) * 1 TMENP X =PA : GQT02740 
2840 8DT02800 

2850 PXwPA: FCQLOURPV s PLOTPX +2, PY-4T0PX+1, PY-4TDPX , PY-3T0PX , PYr2TQPX+l , PY-1T 
OPX+2, PY-1T0PX+3, PY-2T0PX+3 , PY-3 : PLQTF'X+4 , PY-6TÖPX+4 , PY-1 : PLOTPX+5 , PY-3T0PX 
+7, PY-1 : PLOTPX+5, PY-3T0PX+7, PY-5: RETURN 

2360 REM- *** Fehl ernte 1 düng , wenn Input • -falsch war. Ruft Inpu 

f ; '■ ' ' 4 .••: . •' ' ‘ ' . . - | ■' •. ’. V. 

neu auf. 

2870 F0RPN=1T03: PF=-PF: PZ=32: G0SUB2890; P.Z=70: G0SUB2890: Pf=-PF; PLAY (1 ,6,1, 15 
) : FORPK- 1 T020 : NEXT: PLAY (1,6, 1,0) s NEXT : GQSUB2740 : RETURN : , 

2880 REM- '*** Platten von CHR$(PZ) 7 - 

28.90 I FPF< OTHENPK»- 1 84 1 8ELSEF>K— 1 993.8 
2900- PT=ABS(F'F) i.PR»18112+PX/4+PY#40- 

2910 PZ=16*PZ+PK.j FORPJ— 0T07; PR=PR+40: PZ~PZ+2: POKEPR , PT*PEEK < PZ ) sPOKEPR+1 ,PT 
*PEEK(PZ+1> : NEXT.i RETURN . • 

2920 REM-*** : L oeschen 

2930 FCOLOUR (ABS (PF) -PF) 72+1 1 F0RPK=PY~7T0PY : PLOTPX , PKTDPX+8*PL.- 1 , PK: NEXT: RE. 
TURM ' . ' . . ' . 

294Q REM- *** Platten des Strings PS* 

2950 I F P F < 0 T HE NP K = 1 8 4 1 8 E L. S E P K =-19938 
2960 .PR» 1811 0+PX/ 4+:40*PY :.RT«A'BS (PF) 

2970 FQRP 1 = 1 TDLEN ( PS* > i P Z = 1 6 * ASC ( M I D* (PS*, PI, 1 ) ) +PK: PR=PR+2: PC=PR: FORPJ »O TO 
7: POF'C+40: PZ=PZ+2i F'OKEPC, -PT*PEEK (PZ) : POKEPC+1 , PT*PEEK (PZ + 1 ) .: NEXT: NEXT: RE TU 
RN : fj ] • . ■ - .. 

- 2980 REM- *** Zeichen ei niesen 
2990 RESTORE •• , O 

3000 IFPD=OTHEN3020 
3010 FORP I = lTOPDi READPD i.'NEXTPI 
3020 FÖRP.I-0TQ759- . 

3030 READPD : POKEP I +&HF400 , PD 
•3040 PÖKE-17904+2*PI, ( 1 28ANDPD) /2+ (64AN 

3050 POKE— 1 7903+2.*F I , (8ANDPD) *8+(4ANDF'D) *4+<2ANDPD) *2+ ( 1 ANDF'D) 

3060 PD=NOTPD 

3.070 POKE- 1 942.4+2*P I , ( 1 28ANDPD) 72+ (64ANDPD) /4+ (32ANDPD) 78+ ( 1 6 ANDF’D ) 716 
3030 POKE“ 1 9423+2 *P I , ( 8ANDPD ) *8+ (4ANDPD ) *4+ ( 2ANDRD) *2+ ( 1 ANDF'D ) 

30.90 NEXTPI 
3100 RETURN 

3110 DATA255, 255, 255, 255, 255, 255, 255, 2.55 
3120 DATA239,239, 239,239,239, 255,239,255 







3 1 30 D AT A2 1 3 , 2 1 5 , 21 5 , 255 „ 255 , 255, 255 , 255 
3140 DATA215, 215, 131,215, 131,215,215,255 
3150 DATA239, 195, 143,199, 227, 135, 239,255 
3 1 60 DATA .1 59 ,155, 247 , 239 , 223 ,179, 243 , 255 
31 70 DATA223 ,175,175, 223 ,171,183, 203 , 255 
3180 DATA239, 239, 239, 255, 255, 255, 255, 255 
3190 DATA239, 223, 171,191, 191,223,239,255 
3200 DATA239, 247, 251 , 251 , 251,247, 239,255 
3210 DATA239, 131 , 199,239,199, 131,239,255 
’ 3220 DATA255, 239, 23.9, 131 , 239, 239, 255, 255 
3230 DATA255, 255, 255, 255; 255, 239, 223,255 
3240 DATA255, 255, 255, 131 , 255,255, 255, 255 
3250 DATA255, 255, 255, 255, 255, 255, 239, 255 
3260 DATA255, 25 1,247, 239, 223, 191,255,255. 
3270 DATA 199, 187, 179, 171 , 155, 187, 199,255 
3280 DATA239 , 207,, 239 , 239 , 239, 239 , 239 , 255 
3290 DAT A 1 99 , 1 87 , 25 1,199,191,191,13 1 , 255 
3300 DATA 131,251, 247 ,231, 25 1,137,1 99 , 255 
3310 DATA247, 231 ,215, 131,247,247,247,255 
3320 DATA 131 , 191 ,435, 251 ,251 , 187, 199,255 
3330 DATA227, 223, 1.91 , 135, 187, 187,199, 255 
3340 DATA 1 3 1 , 25 1,251, 247 , 239 , 223 , 191, 255 
3350 DATA 1 99 , 187, 187, 199, 187, 187, 199,255 
3360 DATA 199,187,187,195,251,247,1 43 ,255 
3370 DATA255 , 255 , 239 , 255 , 239 , 255 , 255, 255 
3.380 DATA255 , 255 , 239 , 255 , 239 , 239 ', 223 , 255 
3390 DAT A247 , 239 , 223 ,191, '223 , 239 , 247 , 255 
3400 DATA255 , 255 ,131, 255 , 1 3 1 , 255 , 255 , 255 
34 1 0 DATA223 , 239 , 247 ,251,247, 239 , 223 , 255 
3420 DATA 199, 187,251, 23 1 , 239 , 255 , 239 , 255 
343.Q DATA 199,187,1 63 ,171,163,191,195, '255 
3440 DAT A239 , 199,187,187,131,187, 187,255 
3450 DATA 135, 187, 187, 135, 187, 187, 135, 255 
3460 DATA 199, 187, 191,191, 191, 187, 199,255 
3470 DATA 135, 187,187,187,187,187, 135,255 
3480 DAT A 131 , 191, 191, 135, 191, 191, 131,255 
3490 DATA 131 , 191, 191,135, 191, 191, 191,255 
3500 DATA 195, 187, 191 , 191, 177, 187,195,255 
3510 DATA 187, 1E7, 187, 131, 187, 187, 187,255 
3520 DATA 1 99 , 239 , 239 , 239 , 239 , 239 , 1 99 , 255 
3530 DAT A25 1,251,251, 25 1 , 25 1 , 1B7, 199,255: 
3540 DATA. 187, 183, 175,159, 175, '183, 187, 255 
3550 DATA191, 191, 191, 191,191, 191, 13l',255 
3560 DATA 187,147,171,171,187,187,187, 255 
3570 . DATA 187,187,155,171,179,187,1 87,255 
3580 DATA 199, 187,187, 187, 137,187, 199,255 
3590. DATA 135, 187, 187, 135, 191, 191, 191, 255 
3600 DATA 199, 187,187,187,171,183, 195,255 
3610 DATA 135, 187, 187,135, 175, 183, 187,255 
3620 DATA 199, 187, 191 , 199,251,- 137,199, 255 
3630 DATA 131, 239 , 239 , 239 , 239, 239 , 239 , 255 
3640 DATA 187, 187,187, 187, 137, 1 87., 199,255 
3650 DATA 187,187,187,213,215, -239 , 239 , 255 
3660 DATA 187, 187, 187, 171,171, 17t, 199,255 
3670 DATA 187, 187,215,239,215, 187,487,255 
3680 DATA 187 , 187,215, 239, 239,239,239, 255 
3690 DATA 131 ,251, 247,239, 223, 191 , 131 , 255 
3700 DATA 131, 191, 191, 191, 191, 191, 131,255 
.3710 DATA255, 191 , 223, 239, 247, 2.51 , 255, 255 
3.720 DAT Al 3.1 '251 , 251-, 251,251,251,131, 255 
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3730 

3740 

3750 

3760 

3770' 

3730 

3790 

3300 

3810 

3820 

3830 

3,840 

3850 

3860 

3870 

3880 

3890 

3900 

3910 

3920 

3930 

3940 

3 9 SO 

3960 

3970 

3980 

3990 

4000 

4010 

4020 

4030 

40.40 

4050 

4060 

4070 

4080 

4090 


DATA255, 255,255, 199, 187, 2.55, 255, 255 
DATA255 , 25.5 , 255,255 , 255 , 255 , 13 1 , 255 
DATA 191 , 223,239, 255, 255, 255, 255,255 
DATA255 , 255 , 135,251, 195, 187,195,255 
DATA 1 91,191,191,1 35 , .1 87 , 1 87 , 1 35 , 255 


t ****** 




f. v o9' a 




5 ov >- 

9 ' 

, di* s * 


- 3cVi a ■ 

\ te ' ; <5ei^ e 
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. * « * * 


DATA255 , 2.55 , 1 95 , 1 91 , 1 9 1 , 1 9 1 , 1 95 , 255 __ “ 

DAT A25 1 , 25 1 ,25 1,195,1 87, 1 87 , 1 95,255 * , . ut ^ 

DATA255 , 255 , 1 99 , 187,131,191,199, 255 * ** yf&lV : . '° e% ' 

DATA247, 239, 239, 131,239,239,239,255 .* .** *«« "'i- OQ*' 3 ’"^ 1 

DATA255 , 25.5 , 1 95,187, 1 87,131, 25 1 ,23 1 + Ü1 ae , e« T * v - 

DATA191 , 191 , 135, 187, 187, 187, 187,-255 *• 9 ° e p- n ef‘ * 

DATA239, 255, 2.07, 239, 239, 239, 199, 255 * P \ 

DATA255, 255, 247, 255, 247, 247, 183,207 * * V *" 

DATA 191 , 191 , 1.83, 175, 159, 175, 183,255 * n \ aU.f A \ 

DATA2Ö7 , 239 , 23.9 , 239 , 239 , 239 ,199, 255 '* * ^ s e«> H ® ' 

DATA255 ,'255, 1 47 , 1 09 ,109,109,1 09, 255 * ° 

DATA255, 255, 135, 187, 187, 187, 187,255 * *t*'»**° 

DATA255, 255, 199, 187, 187, 187, 199,255 . ** 

DAT A255 , 255 , 1 35 , 1 87, 1.87 , 135,191,191 
DATA255, 255, 195, 187, 187, 195,251,251 

DAT A255, 255 , 135, 187, 191, 191, 191,255 

DATA255 , 1 99 , 1 87 , 207 ,231 ,187,199 , 255 /q 0 

DATA239, 239, 131,239,239, 237,243,255 Ig* 0 {/ä^ 

DAT A255 , 255 , 189 , .1 89,189,1 89 ,195, 255 V * ) 

DAT A255 , 255 , .1 25 , 1 25. 1 25 , 1 87, 1 99 , 239 -S 

DAT A255 , 255 , 125, 109, 109, 109, 147., 255 

DATA255, 255, 125, 187, 199, 187, 125,255 

DATA255 , 255 , 1 87, 187,1 87 ,195,251,1 99 

QATA255, 255, 129,251, 247, 239, 129,255 

DATA 1 95 ,191,1 9 1 ,127, 191,191, 1 9.5 , 255 

DATA239, 239, 239', 255,239,239, 239, 255 : 

•DATA 135, 25 1, 251, 253', 25 1,251, 135,253 V ■ 

DAT A.255 159, 1 09, 243, 255, 255, 255, 255 
*PZ*-P8* : PS$=" 11 : FORP J ~ 1 TÖLEN <PZ*> 

PK*AÖC (MID* <PZ*. PJ , 1 ) ) 

• I FPK >3 1 ANDPK< 1 27THENPS*=P.S*+CHR$ < PK+96 ) ELSEPS*=PS*+CHR* <PK> 
NEXT: RETURN' ' . 





16 - Darauf haben alle gewartet 


Das Warten ho* sich gelohnt Das GENIE 16 ist ein Profi-Computer zum Einsteiger-Preis. 
Mit einem, riesigen Software-Angebot. Denn das GENIE 16 ist PC-kompatibel. 

• 14-Mt-Mikropraxessor 8086 • AT/DOS Betriebssystem 

• 128K RAM (bis 76BK RAM Speicher (erweitertes MS/DOS) 

ausbaubar) • Eingebauter Lautsprecher 

• MK ROM • frgonometrisd*es Design 

• 16- Farben LI I • «-kompatibel 

• 2 x 360K Laufwerke • Deutsche Tastatur 

Postfach 2105 

Alleinvertrlob Uber den H ^.3 ,C 5205 St. Augustin 2 

rachhandel durch: compuiVr ombm Tel.: «22 41/2 «0 71 




Alleinvertrieb Über den 
rachhandel durch: 


E18 
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«1 h HAITI 


H. Bernhardt, C. Ueberschaar 


IHt 



Einer der wesentlichen Nachteile von 8 Bit-Mikroprozessoren gegenüber 16 Bit- 
Prozessoren ist die Beschränkung auf nur 16 Adreßleitungen. Der Prozessor 
kann damit 2 ^ = 65536 = 64 K Speicherstellen voneinander unterscheiden. Von 
diesen 64 K werden beim Genie 16 K für ROM, Sonder-ROM, Video-RAM, Tastatur 
und memory mapped decodierte Peripheriegeräte benutzt . Bei angeschlossener 
Floppy Disk und geladenem DOS und Disk-BASIC werden je nach DOS nochmals an- 
nähernd 16 K RAM belegt. Die verbleibenden 32 K Speicherraum reichen für die 
meisten Anwendungen aus. , ; • , ' 

Wenn allerdings Aufgaben bewältigt worden sollen, bei denen große Datenmengen 
schnell gesammelt . werden müssen (z.B. Messungen), miteinader verrechnet und 
z.B. in Form von Graphiken ausgegeben werden müssen, dann werden 32 K schnell 
zu knapp . . . • • > ' ■ ; • 1 ... ' 

Den prinzipiellen Weg zu mehr Speicher beim Genie I und II hat der Hersteller 
bei der Änderung von 16 K RAM auf 48 K RAM im Grundgerät (83er Modell) auf ge- 
zeigt. Durch Ersetzen der 4116 (16 K x 1 Bit) RAM-Chips durch 4164 (64 K x 1 Bit) 
RAM-Chips und einige dafür nötige Änderungen, ist der gesamte vom Z 80-Prozessor 
adressierbare Speicherbereich bereits im Grundgerät auf dem CPU-Board realisiert.. 
Die Steckplätze für 32 K RAM im Expansionsinterface werden nicht mehr gebraucht. 

Was auf dem CPU-Board möglich ist, ist aber auch im Expansionsinterface durchzu- 
führen, indem 4ll6er Chips durch 4 16.4 er RAMs ersetzt werden. 

Die dadurch vorhandenen 192 K RAM lassen sich allerdings nicht durch Umschalten 
zwischen den drei 64 K-Blöcken benutzen. Beim Umschalten vcm Hauptblock in einen 
anderen Block wären Betriebssystem und Stack nicht mehr verfügbar. Das Umschalten 
darf nur einen kleinen Teil im oberen Adreßraum umfassen. 

In dpr im Folgenden beschriebenen Lösung wurden dafür die oberen 4 K (oder 8 K; 
durch Software umschal tbar) also der 1 Adreßraum F000 H bis FFFFH (bzw. E 000 H 
bis FFFF H beim 8 K-Banking) gewählt. Das bedeutet, daß der gesamte Adreßraum 
von 64 K in 60 K (56 K) Grundspeicher und. einen 4 K (8 K) -Bereich, der durch Soft- 
ware steuerbar überall in den zusätzlichen Speicher hineingelegt werden kann, 
unterteilt ist. ■ ■ 
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Die Schaltuni 


Die softwaregesteuerte Umschaltung der 4 K (8 K)-Blöcke, die bei einer Aus- 
gabe einer -Adresse in diesem Speicherbereich j eweils angewählt werden, er- 
folgt über ein 8 Bit-Latch mit ENABT.E und CLEAR 7h 116,. das durch die Port- 
adresse F 0 II decodiert ist (Abb.l), Durch einen OUT-Befehi läßt sich in das 
Latch ein 8 Bit-Wort eintragen, das dann ständig an den Ausgängen anliegt 
und zur Selektion eines von maximal 256 4 K (8 K)-Blöcken herangezogen werden 

kann. Der Eingang CLEAR wird an die RESET-Leitung des Systems angeschlossen 
und gewährleitet dadurch, daß beim Einschalten des Systems immer alle Bits des 
Latch auf low gesetzt sind. - 


Decodieren der Portadresse FÜH 
C F1H, F2H , FSH ) 


Das 8 Bit-Wort im Latch wird benutzt , um einerseits einen der 3 im Gerät vor- 
handenen Sh K-Blöcke anzuwählen und um andererseits im angewählten Block einen 
bestimnten 4 K (8 K)-Bereich zu decodieren. 


Die niederwertigcn 4 (3) Bits im Latch werden anstelle der Adreßleitungen A 12 
(A 13) bis A 15 an die Adreßmultiplexer der RAM3 gelegt und adressieren damit 
einen 4 K (8 K) -Bereich im angewählten 64 K-Block. / 
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Die höherwertigen 4 (5) Bits werden zur Auswahl eines von maximal 1 6 (32) 
Blöcken mit je 64 K benutzt. Auf diese Art lassen sich mit dem 8 Bit-Wort 
im Latch insgesamt 1 M Byte ( 2 M Byte) Speicher verwalten. Hier wird aber 
nur von drei 64 K-Blöcken Gebrauch gemacht, weil für diese nach Ersetzen der 
4ll6er RAMs durch 4l64er RAMs und einige geringfügige Änderungen die nötigen 
.Steckplätze im System vorhanden sind. Die Schaltung liefert aber die Auswahl- 
impulse für insgesamt 32 solcher 64 K-Blöcke. Mit geeigneten Speicherkarten 
läßt sich das System auf 2 M Byte Speicher erweitern'. 

Der Blockauswahlinpuls , der gewonnen wird, wenn alle 4 (5) höherwertigen Bits 
des Latch 0 sind und der Prozessor eine Adresse oberhalb F 000 H ( E 000 H) 
ausgibt, muß den RAM-Block auf dem CPU-Board anwählen. Dieser Block muß aber 
auch angewählt werden, wenn eine Adresse unterhalb F 000 H ( E000 H) ausge- 
geben wird. Die Schaltung muß also erkennen, ob eine Adresse unterhalb des 
umschaltbarenj Bereichs anliegt, und dann die normalen Adreßleitungen A12 
(A 13 ) bis A 15 an die Adrefimultipexer der RAMs durchschalten, oder ob eine 
Adresse im umschaltbaren Bereich anliegt, und dann die niederwertigen 4 (3) 
•Bits des Latch als Adresse an die Multiplexer der RAMs anlegen. 

Diese Aufgabe wird durch ein- 4 Input NAND 74 LS 20 (IC 10), dessen Ausgang 
immer dann low ist, wenn A 12 (A13) bis A 15 alle gleichzeitig high sind, 
und einen Multiplexer 74 LS 157 (IC 15), dessen SELECT Eingang je nach Zu- 
stand des NAND entweder die unteren Bits des Latch oder die System-Adreß- 
leitungen A 12 bis A 15 durchschaltet . 

Wenn die an das NAND-Gatter angelegten Adreßleitungen alle high sind (also 
der obere, umschaltbare Adre fibereich angewählt wird, dann werden vom Multi- 
plexer die Ausgänge des Latch durchgeschaltet, wenn auch nur eine dieser 
Adreßleitungen low ist, werden die normalen Adreßleitungen vom Multiplexer 
durchgeschaltet (Abb. 2). 

Die Umschaltung zwischen Banking von 4 K und von 8 K erfolgt über das Bit 0 
eines anderen Latch. Ein zweiter Baustein 74 116 wird dazu in zwei 4 Bit- 
Latches unterteilt. Beide Hälften werden durch unterschiedliche Portadressen 
(Pins 11 und 105 von IC 3) decodiert. Die Hälfte, die durch die Portadresse 
F2 H decodiert wird, dient als Software-Schalter. Der Bit 0- Aus gang wird 
an die SELECT-Eingänge von 3 weiteren 74 LS 157 Multiplexern gelegt und y 
kann so die Durchschaltung von je einem von 2 Eingänge 0 zum Ausgang des Multi- 
plexers steuern. 
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An den A-Eingängen der beiden Multiplexer IC 7 und IC 8 liegen die 8 Bit 
des Latch F0 H an. Diese 8 Bit werden dann direkt durchgeschaltet, wenn' 
das Bit 0 des Steuer latch F2 H low ist ( 4 K-Banking). An den B-Eingängen 
der Multilexer liegen ebenfalls die Bits 0 bis 6 des Latch F0 H an, nur, 
daß jedes Bit um eine Position zum höheren Stellenwert verschoben ist. Wenn 
das Bit 0 des Steuer latch- F2 H high ist (8 K-Banking), erscheint das Wort 
des Latch an den Ausgängen der Multilexer arithmetisch links geshiftet. 

Das Bit 7 des Latch F0 H liegt dann am Ausgang 1 des dritten Mültipexers 
IC 9 an. Am niederwertigsten Ausgang von IC 7 liegt dann der Pegel der 
Adreßleitung A 12 an (Abb.3). 

Die Adreßleitungen A 12 und A 13 werden durch den dritten 7 4 LS 157 (IC 9) 
ebenfalls gemultiplext , so daß beim 4 K-Banking A 12 an den vierten Eingang 
des 4 Inputs NAND Gatters (IC 9) anliegt, während beim 8 K-Banking A 13 an 
diesen Eingang gelegt wird und A 12 an den B-Eingang des Multiplexers, um 
bei Zugriff auf den Grundspeicherbereich 0 - 56 K als niederwertigstes Bit 
neben den 8 Bit des Latch durchgeschaltet zu werden. Die Daten an den Aus- 
gängen der Multiplexer IC 7 bis IC 9 beim 4 K-Banking und beim 8 K-Banking l 
werden in Tabelle 1 dargestellt. 
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E insstell en von 4K- oder SK- 
-Banking über Bit 0 des Steuerlatch 
F2H (Signal QO ) . Die Bits des 
Latch werden bei 8K-Bank i ng arith- 
metisch links geschiftet durchge-' 
schaltet. A 12 wird als LSB durch- . 
ge schal tet . , 


In beiden Fällen werden die Mult iplexeraus gänge Y 1 bis Y 4 (am IC 7) 
zusammen mit den System-Adreßleitungen A 12 bis A 15 an den Multiplexer 
IC 15 gelegt. Durch Selektion des NAND-Gatters IC 10 wird eine dieser 
beiden Gruppen dort durchgeschaltet und ergibt die Adreßleitungen A 12’ 
bis A 15' . 


Zwingend ist die. Verwendung der Signale A 12* bis A 15 * nur im 64 K-Block 
auf dem CPU-Board , weil hier auch der nicht umschaltbare Hauptadreßraum 
bis 60 (56) K liegt. Alle anderen 64 K-Blöcke können auch direkt mit den 
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Tabelle 1 Von den Multiplexern (IC 7 bis IC 9 ) durchge- 
schaltete Signale -für 4K- und 3K-Banking 

Ausgängen Y 1 bis Y 4 des Multiplexers IC 7 als Adresse A 12 bis A 15 be- 
schältet werden, weil diese Speicher je nach eingestellter Bank im Latch 
F0 H nur bei Ausgabe von Systemadressen oberhalb P 000 H (E 000 H) ange- 
sprochen werden. 

Die Multiplexer Ausgänge Y 5 bis Y 8 werden an zwei 7 4 LS 15*1 (1 aus 16 
Decoder) gelegt und ergeben, die Block- Auswahlinpulse BS 0 bis BS 31, die 
den jeweiligen 64 K-RAM-Block freigeben. 

Y 9 gibt jeweils einen der beiden 1 aus 16 Decoder frei. Beim 4 K-Banking 
muß diese Auswahl durch Setzen von Bit 1 im Steuer latch F2 H (low: 0-1 M 
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Das COLOUR GENIE BUCH aus unserem Verlag bringt unter anderem: Neue und alte ROM's im Ver- 
gleich, alle Z80 Maschinenbefehle in übersichtlicher Form, Joysticks-selbst gebaut, was braucht man 
an Software; Wie arbeitet man mit dem Bildschirmsteuerungs-IC, wie programmiert man den PSG 
(Programmier. Sound Generator), wie baut man Maschinenprogramme in Basicprogramme ein, alles 
mit vielen Beispietprogrammen, viel Software zum abtippen, und, lind, und ... 

Das COLOUR GENIE BUCH von uns müssen Sie haben! Es bringt Ihnen viele Informationen, die Sie 
nötig brauchen. Für Anfänger und Profis! ■ ■ ■ ■ ■ ■ 

Also bestellen Sie sofortl ! I 1 49... DM. SOlll!© J OCl €1* ndD ©I 
156 Seiten stark, für Sie geballtes Wissen ! 9 


BESTELLUNGEN 

AN 

HEINZ HÜBBEN 
Abt. Softwarevertag 
Mühlbachstr. 2 
D-5429 Marienfels 
Tel. 06772/1261 


COLDRT 


BESTELLUNGEN 

AN 

HEINZ HÜBBEN 
Abt. Softwareverlag 
Mühlbachstr. 2 
D-5429 Marienfels 
Tel. 06772/1261 


COLDAT ist das universell ersetzbare Adreß- Verwaltung*- Programm für 16K und 32 K 
Colour Genies mit einem oder zwei Disketten- Laufwerken und einem beliebigen Drucker. 

Mit COLDAT können Sie Adressen eingeben, laden, ändern, Aufkleber drucken, Listen er- 
stellen, selektieren, und, und, und; ... 

Interessant ist übrigens auch der Preis: COLDAT kostet auf Diskette mit ausführlichem 
deutschem Handbuch nur 79,- DM ! 

Übrigens: COLDAT ist durch seine Bildschirm- und Drucker-Masken äußerst leicht zu 
bedienen I 
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Byte Bereich; high: 1-2 M Byte Bereich) erfolgen. Die prinzipielle Freigabe 
beider 1 aus 16 Decoder erfolgt durch das 4 Input NAND (IC 10 ), wenn A 12 
bis A 15 (A 13 bis A 15 -) alle high sind. 

Y 11 wird nicht benutzt. Y 10 und Y 12 steuern die Schaltung von A 12 oder 
A 13 an den Eingang des 4 Input NAND Gatters IC 10 und an den Eingang B 1 
des Multiplexers IC 7- 

Der Grundspeicherbereich, der 64 K-Block auf dem CPU-Board, der bei Low auf 
den Ausgängen des Multiplexers IC 8 ( Y- 5 bis Y 8) decodiert wird, hat dabei 
mehrere Funktionen. Der Adreßbereich 16 - 60 (56) K wird vcm Prozessor direkt 
adressiert. Andererseits ist er auch in den Banking- Zugriff eingeschlossen, 
so daß jeder 4 K (8 K) -Bereich durch Ausgabe der Bank Nummern 0 - 15 (0 - 7) 
in das Latch P0 H in den oberen Banking-Adreßraum F000 H (E000 H) bis FFFF H 
gelegt werden kann. Das kann mit dem ohnehin in diesem oberen Adreßraum liegenden 

Bereich und mit dem Bereich 0 - 16 K, der parallel zum RCM liegt, gemacht 
werden. Wenn allerdings Teile des Betriebssystems, des BASIC oder des An- 
wenderprogramms in den oberen Adreßraum gelegt werden, in den z.B. Meßdaten 
eingetragen werden, so überschreiben diese Daten die jeweiligen Programme. 

Dieses Problem kann z.B. dadurch gelöst werden, daß entsprechende Bank 
Nummern nicht benutzt werden (4 - 14 beim 4 K-Banking und 2-6 beim 8 K- 
Banking). Sicherer ist aber eine Kontrollschaltung, die immer dann, wenn 
eine verbotene Bank Nummer an die RAMs durchgeschaltet wird, sofort einen 
RESET am Latch F0 H auslöst und darin die Bank Nummer 0 einstellt, die 
in jedem Fall erlaubt ist. 

In Tabelle 2 sind die Bitkombinationen an den Ausgängen des Multiplexers 
, IC 7 angegeben, die beim Banking im 64 K-Block auf dem CPU-Board erlaubt • 
sind, und diejenigen, die verboten sind. 

Es ist zu erkennen, äßß für die erlaubten Bank-Nunmem folgende Bedingungen \ 
für die Bitkombination gelten: 

1) Y 4, Y 3, Y 2 und Y 1 müssen alle gleichzeitig high sein oder 

2) Y 4 und Y 3 müssen beide gleichzeit low sein und 

3) Y 5 bis Y 8 müssen alle low sein (64 K-Block Nr. 0 decodiert), weil 
in anderen Blöcken diese Kombinationen erlaubt sind. 



I ^ Ihr juwrttolgw Pjrtoer tOr Comput*ni*ira« 

lü^cc Computer Studio GmbH 

Software + Hiniwin + Berahjnjr 
ttr TOS 80* und JfciiWeraputof 
Sorvice-Ellverearrf ,; \ 

Elisabethstraße 5 
4600 Dortmund 1 
Tel.:0231-528184 
b^gtfgvtntn Tx 822 631 cccsd 

Jan P. Schräder, 

•TOS 80 ist elngäraoenes Warenzeichen derTandy Corp. 


TROMM ESCH LÄGER 
COMPUTER GMBH 
STAUGUSTIN 

POSTFACH 2105 
5205 ST. AUGUSTIN 2 
TEL 02241-28071 
TELEX 889702 


TATUNG TPC 2000 
Bürocomputer mit 1.4 MBYTE 
Diskkapazität 

RECHNER für C/PM 2.2 und 
GENIE DOS 

Mit TOPTIP Textverarbeitung, Fi- 
nanzbuchhaltung u. offene Posten- 
verwaltung. Enapreis DM 5995,-- 
Räbiger Computersysteme 
5160 Düren, v»id»n«*tr. 65 
Tel .0242 1/43877, Telex 833642 REOO 
Mont.-Frelt. 10-13, 14-17 Uhr 
Allelnvertr.,HSndleren»r«g. willkommen 


SCHMIDTKE 

electronic 

GENIE -Fachhändler 

Sandkaulstraße 84/86 
5100 AACHEN 
Tel. 0241-23217 


Iburgerstraße 17 
Telefon 0541/588660 
4500 OSNABRÜCK 


Qeechlftuelteni 

Mo. • Fr. 10.00 Uhr bU 13.00 Uhr 
14.30 Uhr bll 18.30 Uhr 
Se. 10.00 Uhr bll 14.00 Uhr 

Donnerttagi getchlouen 
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2940 Wilhelmshaven 
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Telefon 04421 -12636 
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MUSIK + COMPUTER 
Orgel- u. Piano-Bausätze' 
Industriestraße 
5401 HALSENBACH 
Tel . (06747) 7131 
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2 Bi tkornbi nat i orten Cart den Ausgängen des 
Mu 1 t i p 1 exers 1 0 7) der möglichen Bank- 
Nummern für den RAM-Bl ock auf dem CPU-Board 


Die "Sicherung" muß also erkennen, wenn Bedingung 3 und eine der beiden 
anderen Bedingungen gleichzeitig erfüllt sind. Die in Abb . 4 gezeigte ein- 
fache Schaltung erkennt diese Bitkombinationen und gibt am letzten NAND- 
Gatter ein Low-Signal aus, wenn eine verbotene Bank-Nummer vorliegt. Dieses 
Iow-Singal wird zum Löschen des Latch FOH benutzt. Da aber auch durch RESET 
das Latch gelöscht werden soll, ist eine AND-VerknÜpfung (2 NAND Gatter in 
IC 4) von RESET und dem Signal der "Sicherung" nötig. An die beiden durch 
Fl H und F2H decodierten Latches kann das teSEffl Signal direkt angeschlossen 
werden. 


Diese Schaltung hat einen kleinen Schönheitsfehler. Beim 8 K-Banking wird 
auch der Adreßbereich E000 H bis EPFF H, der als untere Hälfte des oberen 
8 K-Adreßbereichs durchaus erlaubt ist, als verboten erkannt (y 1 = A 12 = f 
damit sind Y 1 bis Y 4 nicht alle gleichzeitig high) . Diese 4 K Byte werden 
dabei zugunsten erhöhter Sicherheit verschenkt. 
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Sehr geehrte Genie Data-Red. 
Ich fände es sehr gut, wenn die 
GENIE DATA ab 1985 mo- 
natlich erscheinen würde. An- 
sonsten möchte ich ihnen sa- 
gen, daß ich die GENIE DATA 
sehr gut und informativ fin- 
de. Kaum eine andere Zeit- 
schrift bietet das. Allerdings 
fände ich es besser, wenn Sie 
für das Colour Genie nicht nur 
Spiele sondern mehr * Utilities 
abdrucken würden. i 

Guido Rupsch 
Biesfelder Str.1 
5000 Köln 80 

Sehr geehrter Herr Rupsch^ 
Utilities folgen ab der näch- 
sten Ausgabe. Monatlich er- 
scheint die GENIE DATA vor- 
läufig noch nicht, da leider 
nur sehr wenige Zuschriften 
bei uns eingingen. 

... eigentlich schade. 

GENIE DATA Redaktion. 


Sehr geehrter Herr Hübben, 
Ihre Zeitschrift GENIE DATA 
ist sehr informativ und inter- 
essant und ich lese sie gern, 
deshalb habe ich sie auch abo- 
nniert. 

Als Computeranfänger habe ich 
jetzt eine Frage, die das Ein- 
geben von Maschinensprache- 
programmen betrifft. 

Wie bestimmt man eigentlich 
die sog. Einsprungadresse, kann 
man dafür nicht auch jede 
beliebige Adresse nehmen,. Um 

als Anfänger Maschinensprache- 
programme zu erzeugen habe 
ich mir folgendes Konzept aus- 
gedacht. 

Erst das Programm in Basic 
schreiben, dann ein Maschinen- 
sprachemonitor in Basic und 
das Basic-Programm zusamipen- 
laden, dann mit dem Moni- 
tor die Speicherzellen des ge- 
schriebenen Basic-Programmes 
hexadezimal listen und die 
Hexwerte abschreiben. 


Diese hexadezimale Liste des 
Basic-Programmes läßt sich 
doch dann mit einem Moni- 
tor eingeben und als Maschi- 
nenspracheprogramm auf Band 
schreiben: Die Anfangs- und 
Endadresse weiß man dann ja 
aber wie bestimmt man die 
sog. Entry- oder Ansprungs- 
adresse des Programms - bei 
Eingabe eines Maschinenspra- 
cheprogrammes mit Monitor 
benötigt man ja diese drei 
Adressen "Anfangs-, End- und 
Ansprungsadresse." 

Hörst Schumacher 
EichstriBeAO 
4298 Oberhäuten 1 


Sehr geehrter Herr Schumacher 

Die Startadresse eines Pro- 
gramms steht normalerweise im- 
mer im Begleittext. Sollte das 
nicht der Fall sein, probieren 
Sie mal die Anfangs- als Start- 
adresse zu nehmen. Manchmal 
funktioniert das. 

Ihr ausgedachtes Verfahren 
kann nicht funktionieren, da 
Sie vom Basicprogramm nur die 
veränderten Teile sehen. Z. 
B. Zahlen codiert, Strings als 
Hex-Zahlen und Befehle umge- 
wandelt in Tokens. 

Sie sehen also nur Ihr Basic- 
programm in abgewandelter 
Form, kein Maschinenpro- 
gramm. 

GENIE DATA Redaktion 
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Sicherungsschaltung zur Uerhinder 
verbotener Bank -Wummern 


Vereinfachte Schaltung für beschränkte Anwenduni 


In vielen Fällen wird ein Umschalten von 4 K- auf 8 K-Banking durch Software 
gar nicht gefordert sein. Es genügt hier eine einmalige in Hardware vorge- 
gebene Einstellung auf entweder 4 K- öder 8 K-Banking. 


Weiterhin kann davon ausgegangen werden, daß 1 M Byte Speicherplatz aus 
reichen. 


Wahrscheinlich kann auch die weiter unten noch beschriebene Bankumschaltung 
des Adreßbereichs des Sonder-RQM {ytftfb H~36£F H) entfallen. 


Es kann dann auf die IC s 6, 7, 8, 9 und' 14 der Banking-Schaltung verzichtet 
werden. Anstelle <ier IC s 7 bis 9 können die Eingänge A (für. 4 K-Banking) 
oder B (für 8. K-Banking) direkt per Drahtbrücken in der Banking Karte an 
die Ausgänge Y geschaltet werden. 

Der Ausgang Y 9 ist an GND zu schalten. 


Bei Verzicht auf IC 14 (Verwaltung des Bereiches 1-2 M Byte) kann auch 
das Steuerlatch F2H (IC 6) entfallen. Damit entfällt aber auch die Möglich- 
keit, mit dem Latch Fl H eine Umschaltung des Adreßbereichs des Sonder-ROM 
zu verwalten. 
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Auch in dieser abgemagertert Version kann die Schaltung beim 83 er Modell ohne 
herkömmliches Expansionsinterface mit Speichersteckplätzen den Zugriff auf die 
16 K RAM, die parallel zum ROM liegen und deshalb bisher nicht verfügbar waren, 
ermöglichen. 

Notwendig Änderungen im Genie 

Beim Genie Mikrocomputer (82er Modell) bestehen im Grundgerät 16 K RAM und 
im Expansionsinterface 32 K RAM in Form von 8 und 16 Stück 4ll6 Chips (16 K x 
1 Bit) . Beim 83 er Modell sind die 8 Chips auf dem CPU-Board durch ^16^ (64 K x 
1 Bit) Chips ersetzt worden. Der Unterschied zwischen beiden Typen besteht 
darin, daß die 4ll6er RAMs die drei Versorgungsspannungen' + 5 V (V cc ), + 12 V 
(Vdd) und - 3 V (Vg B ) benötigen, während die.4l64er Chips nur noch + 5 V be- 
nötigen (Abb.5). Um in den gleichen Sockeln 4l64er RAMs benutzten zu können, 
müssen die drei Versorgiongsspannungszuführungen zu den RAM-Blocks abgetrennt 
werden. + 5 V ist nun an die Pins 8 der RAMs anzulegen, während an die Pins 9 
(bisher beim 4ll6' + 5 V) A 7 anzulegen ist. Die Bezeichnung der Adreßleitungs- 

Pins im Pinout der beiden RAM-ltypen ist nicht zu verwechseln mit den Adreß- 
leitungen des Systembus A 0 bis A 7. An die Pins A 0 bis A 7 der RAMs werden 
die durch Multiplex nacheinander durchgeschalteten Gruppen A 0 bis A 7 und 
A 8 bis A 15 des Systembus gegeben. 




Abb. 5 Pinout cjer RAH -Typen 4116 und 4144 
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Gegenüber der Belegung der Multiplexer 74 LS 157 bei Benutzung von 4116 RAMs 
müssen für 4164 RAMs die in Abb. 6 und Abb. 7 gezeigten Änderungen auf dem 
CPU-Board und im Expansionsint erfaee .vor genommen werden. 


Änderung der Beschaltung der Adreß 
multiplex er der RAM-Blocks im 
Expansions-Interface 


Anstelle der Systembus-Adressen A 12 bis A 15 sind zumindest auf dem CPU-Board 
die Signale A 12' bis A 15' der Banking-Schaltung zu benutzen. Auf den Board 
im Expansionsinterface und auf eventuell dazukonmenden weiteren Speicherkarten 
können auch die Signale Y 1 bis y 4 von IC 7 anstelle von A 12’ bis A 15 1 ver- 
wendet werden. 
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GENIE 16 

GENIE 16 - Zentraleinheit 

Computer mit 16-Bit Prozessor, 2 Disketten- 
laufwerk mit je 360 KB, deutsche DIN-Tastatur, 
4 PC-kompatible und 2 16-Bit-Slots, vorbereitet 
für 8087 Arithmetikprozessor, 128 KB Benutzer 
Speicher. 

Softwarepakete im Prei£ enthalten . 

Entweder TOPTIP, die rechnende Textverarbei- 
tung oder das Perfect-Software-Paket, bestehend 
aus Textverarbeitung, Datenverwaltung und Kal- 
kulationsprogramm. 

Komplettpreis; 5.900,-- DM 

GENIE 16 -Software 

dBASEII 1.540,- DM 

dBASEIII 2.195,- DM 

Friday! 770,- DM 

FRAMEWORK ' 2.195,- DM 

dBASE - Runtime 296,-- DM 

Finanzbuchhaltung 1.750,-- DM 

Lohn und Gehalt 1.750,-- DM 

Fakturierung 1.760,-- DM 

The Norton Utilities 295,-- DM 

Einet 145,- DM 

TOPTIP (wahlweise im Lieferumfang des 
GENIE 16) 495,- DM 

Turbo Pascal 279,- DM 

Flugsimulator 185,-- DM 

Pacman 129,- DM 

Pole Position 129,- DM 

Sargon III 195, -DM 

GENIE 16 - Peripherie 

Farbmonitor, hochauflösend 2.295,- DM 

Monochrom Monitor ' 595,-- DM 

8087 Arithmetik-Prozessor 895,- DM 

Harddisk 10,5 MB 5.750,- DM 

128 KRAM 595,- DM 

256 K RAM 1.195, -DM 

512 K RAM 1.975, - DM 

Rest auf Anfrage I 


DRUCKER 

STX 80, Thermodrucker 
Gemini 10X, 80 Z/Zeile, 120 Z/sec. 
Gemini 15 X, 132 Z/Zeile 
Delta 10, 80 Z/Zeile, 160 Z/sec. 
Delta 15, 132 Z/Zeile, 160 Z/sec. 
Radix 10, 80 Z/Zeile, 200 Z/sec. 
Radix 15, 132 Z/Zeile, 200 Z/sec. 


C0L0UR GENIE 

COLOUR GENIE - Zubehör 
1 Disketten-Laufwerk, mit Contr. 
Doppellaufwerk, mit Contr. 

16 K RAM Erweiterung 
Druckerinterface mit Kabel 
Analog-Joysticks (2 Stück) 
Datenrecorder 

RGB-Platine für Colour Genie 
RGB-Monitor 


Lieferungs und Zahlungsbedingungen für Hardware: 
Lieferung erfolgt nur per Nachnahme (Vorauskasse ist 
nicht möglich!). 

Eine eingehende Bestellung wird von uns schnellstmög- 
lich ausgeführt, normalerweise innerhalb einer Woche. 
Sollten wegen Lieferschwierigkeiten unserer Zuliefe- 
ranten Verzögerungen entstehen, werden wir Sie davon 
in Kenntnis setzen. 

Garantie: 

Auf jeden Artikel erhalten Sie eine Garantie von sechs 
Monaten, gültig ab Rechnungsdatum. 

Zusatzprogramm: 

Eine Vielzahl an Programmen für Colour Genie und Ge- 
nie I, II und III ist lieferbar. Fordern Sie dazu mit -,80 
Pf Rückporto eine Liste von uns an. Genie 16 Software 
wird ständig erweitert. Auch hierzu erhalten Sie eine 
Liste gegen -,80 Pf Rückporto. 

Wir liefern auch preisgünstige Datenträgerl Erfragen Sie 
die T agespreise am besten telefonisch I 

Bestellungen an ; 

Fa. Hübben, Mühlbachstraße 2, 5429 Marienfels. 
Telefon: 06772-1261 

CP/M Ist singst ragen«: Warenzeichen von Digital Research! 


PLOT-I. Der kleine Flachbettplotter 
für große Aufgaben. 

Der PLOT-I von TCS ist ein 4-Farb-Flachbettplotfer für 
DIN A4 Blatlgröße. Mit der CENTRONICS-Sdmittstelle läßt 
er sich problemlos an alle gängigen Rechner anschließen. 
Er bietet Ihnen 2 Schriftarten, verschiedene Schriftgrößen, 
mehrere Schriftrichtungen, Umlaute und eine Wiederhol- 
genauigkeit von 0.2 mm. 

Nur DM 1.195,- (fncl. MWSt.) 


GENIE l/ll 

GENIE l/ll - ZUBEHÖR 

1 Disk -Laufwerk, SS, mit Contr. 
Doppel laufwerk, SS, DD, 

1 Disk-Laufwerk, DD, DS, 
Doppellaufwerk, DD, DS, 

Monitor, 12 Zoll, grün 
Monitor, 1 2 Zoll, bernstein 
Monitor, 15 Zoll, 18 MHz, entsp. 
G-DOS, Vers. 2.1, 

CP/M 2.2 C, 

Memory-Banking-Adapter für CP/M 
Druckerinterface mit Kabel 
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Anstelle der bisherigen Blockauswahlimpulse 32 K und Wk (Pins 6 und 7 von 
Z 29, LS 139) sind im Expansionsinterface die 64 K-Blockauswahlimpulse 
BS"T und BS~~2 (Pins 2 und 3 von IC 13, 74 LS 154) der Banking-Schaltung an 
Pins 1 und 2 von Z 32 (74 LS 00) und Pins 16 und 12 von Z 22.(74 LS 32) 
zu legen. Die Pins 9 und 10 von Z 37 (74 Ls 20) , an denen auch die Signale 
32“K und 48' K lagen, müssen beide mit dem Signal von Pin 8 des IC 12 
(74. LS 00) der Banking- Karte beschältet werden. Die entsprechenden Verbin- 
dungen zwischen Z 29 und Z 37 und zwischen Z 37 und (Z 22 und Z 32) müssen 
getrennt werden. 

Die Auswahl des 64 K Blocks auf dem CPU Board und auch der RCMs soll unter 
mehreren Voraussetzungen möglich sein: 

1) Wenn eine Adresse oberhalb von F 000 II (E000 H beim 8 K-Banking) auf dem 

8 Systembus liegt und der 64 K-Block 0 eingestellt ist (und beim 4 K Banking 
Bit 1 im Steuer latch F2 H low ist): 

Dann liegt an Pin 1 des 1 au3 16 Decoders IC 13 (74 LS 154) Low- Pegel an 
(IIS 0= 0). 

2) Wenn eine Adresse unterhalb F000 II) vom Prozessor ausgegeben wird: 

Dann ist der über IC 11 invertierte Ausgang Pin 8 des 4 l’mput 'NAND Gatters 
IC 10 low aktiv. 

Diese beiden Sigiale werden ah die Pins 1 und 2 sowie 4 und 5 von Z 21 
(74 LS 20). auf dem CPU-Board gelegt. Die bisherigen Anschlüsse 0 - 16 K 
und 16 - 32 k (Pins 12 und 11 vom Z 25, 74 LS 139 im 82er Modell) oder 
0 - i6 K und dessen Inversion (über Z 36, 74 LS 0 4) 16 - 64 K (Pin 12 
vom t 25 urid Pin 2 von Z 36, 74 LS 04 im 83er Modell) werden abgetrennt. 

Die NAND Verknüpfung der Signale BS0 (IC 13, Pin 1) und MAIN =0-60 
( 56 ) K (IC 11, Pin 8) über IC 12, Ausgang Pin 8 wird mit dem in der Banking 
Schaltung in der zweiten Hälfte des IC 3 ( 7 l { LS 139) aus A 14 und A 15 ge- 
wonnenen Signale ft - 16 K im IC 4 NAND- verknüpft und ergibt das Freigabe- 
signal CÄSEN für den CAS-Treibcr Z 37 (74 LS 367 ) Pin 15 auf dem CPU-Board 
(Abb.8). 

Der 64 K-RAM-Block auf dem CPU-Board ist also nur dann verfügbar, wenn ent- 
weder eine Adresse im Bereich 16 - 60 ( 56 ) K ausgegeben wird, oder wenn eine 
Adresse. oberhalb von P000 II) ausgegeben wird und gleichzeitig eine Bank 
0 ins Latch F0H eingetragen ist und beim 4 K Banking Bit 1 im Steuerlatch 
F2 H low ist. Die Gesamtschaltung ist in Abb. 9 dargestellt. Sie läßt sich 
bequem auf einer Europakarte unterbringen. 



Abb.lü; Bestückung®-' und Verdrahtungsplan 
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Allerdings wird der erweiterte Speicher vom DOS und BASIC nicht automatisch 
mitbenutzt. Um den vollen Speicherplatz vom BASIC aus zu nutzen, können in 
den einzelnen Banken entweder Maschinenprogramme gespeichert sein, die nach 
Einschalten der .entsprechenden Bank auf gerufen werden können, oder BASIC kann 
in den Banken Daten durch POKE-Befehle ab legen und durch PEEK-Befehle wieder 
lesen. . . 

Die Speicherung von Variablen oder gar BASIC-Programmtext in diesen Bereichen 
wird nicht unterstützt. Vor dem Benutzen der Banken muß zu Anfang HIMEM bzw. 
MEMORY SIZE auf einen Wert unter 60 ( 56 ) K gesetzt werden, um keine String- 
variablen oder eventuell auch numerische Variablen durch Bankumschaltung ver- 
schwinden zu lassen. 

Banking des Adreßbereiches des Sonder-ROMs 

Nachdem nun die Verwaltung von bis zu 2 Megabyte dynamischer RAMs realisiert 
wurde, soll noch kurz erwähnt werden, daß von IC 6 (74 116) nur eine Hälfte 
als Steuer latch (Portadresse F2 H) benutzt wird. Die andere Hälfte mit eben- 
falls einem 4 Bit-Latch wurde durch die Portadresse Fl H decodiert. ,Hier stehen 
noch ei^al 4 Bit zur Verfügung, die an einen 1 aus 16 Decoder angeschlossen 
werden können und dann 16 Freigabe-Signale erzeugen können. 

Diese Möglichkeit erlaubt es prinzipiell,, den Speicherbereich des Sonder-RCM 
3000 H bis 36FF H zu vervielfachen, indem das Freigabe Signal für das ROM 
zur Freigabe des 1 aus 16 Decoders benutzt wird. Der Decoder liefert die 16 
Freigabesignale für 2716 EPRCMs und /oder pinkompatible 6ll6 CMOS RAMs. 

Durch die Beschaltung des Sonder-ROM im Genie ist die Verwendung aller Signale 
an den Pins dieses Sockels aber nicht möglich. 

1) Der flS-Eingang, Pin 21, der beim 6ll6 RAM für Speicherschreibeoperationen 
auf low gehen muß, ist über einen Widerstand an + 5 V angeschlossen. 

2) Der CE -Eingang ist di^ct an GND angeschlossen. 

■ V __ 

3) Am OE -Eingang liegt das 12-14 K-Signal (von Pin 5, Z 22, 74 LS 156), 
das auch bei Adressen im Bereich 3700 H - 37FF H einen Zugriff auf das ROM 
ermöglicht. 
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4) Das Ausblenden des Bereiches '5'lWt H bis 37 FEH erfolgt nicht durch die 
ÖE -Freigabe sondern durch die Freigabe der Speicher lesetreiber. Dies wird 
durch eine im Schaltplan des Service Manuals nicht dokumentierte Schaltung 
(Abb. 11) erreicht. 


5) Die Datenleitungen sind über unindirekt ionale Speicher lesetreiber ange- 
schlossen, so daß die Verwendung von RAMs nicht ohne Änderungen möglich ist 


Ausfallenden des Speicherbereiches 
3700 H - 37FF H im Sonder-ROM über 
die Frei ge.faie des Spei eher 1 ese tre i ber-s 
(im Service Manual nicht dokumentiert) 


Zur Benutzung von RAMs dürfen die Datenleitungen nicht über die unidirektionalen 
Speicher lesetreiber an das Speicherchip geführt werden. Anstelle dieser bis- 
herigen Anschlüsse an den Sonder-ROM-Sockel (Pins 9-11 , 13-17) müssen die Signale 
D 0bis D 7 des bidirektionalen Systemdatenbus verwendet werden (Abb. 12). 


An die Anschlüsse OE , Pin 20 und WE , Pin 21 müssen sie Signale MRD (Z 36 
Pin 11) und MWR (Z 33 Pin 3) gelegt werden. 



* 

9 



40 

J 
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fl 
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(HIB) UtkcL des 
Sotider-RDM 


änderugen am Sockel des Sonder -ROM. -für 
das Bankinq von wahlweise EPROMS und/oder 
RAMs jm Adre.ßbere i ch 3000 H - 36FF H 


Die Freigabe von CK, Pin 18 muß neu decodiert werden, da auf das Ausblenden de: 
Bereiches 3700H-37FFH durch die Freischaltung der Speicherlese treiber ver- 
zichtet werden soll. Eine einfache Erzeugung-, dieses Signals ist in Abb 13 . ge- 
zeigt. Der dazu auf dem CPU-Board zusätzlich nötige Baustein 74 .LS 08 läßt 
sich direkt neben Z 25 (74 LS 139) in das dort vorhandene freie Feld einsetzen 


CE Sondir- 


Abb. 13 


1 erung . des Sonder -RQM-Adre.e 
JOGG H - 3SFF H und des 
de r memor >— map p e d-D ivices 



Nun lassen sich alle Signale des Sonder-ROM-Sockel an eine Karte führen, auf 
der bis zu 16 Stück 2716 ERROMs und/oder 61 16 RAMs stecken. Das nach Abb. 13 
gewonnene Freigabesignal wird an die. Freigabe-Eingänge des 1 aus 16 Decoders 
gelegt. Die Eingänge 10 bis I 3 werden mit den Ausgängen Q-0 bis Q3 des 
Latch Fl H verbunden. Die Ausgänge des Decoders schalten dann das jeweils an- 
gewählte Speicherchip frei (Abb. J'l) . 


Sockel 4$s 
ianrftr- 


| RAH/H0tt0 RAtl/ROrtl 


RAM {ROM 5 


laut 16 Decoder 


Auf diese Weise läßt sich der Speicherbereich 3000 H bis 36FF H versechszehn- 
fachen. Das ist besonders interessant, weil dadurch ein Austesten von Maschinen' 
spracheprograimenim RAM und späteres Benutzen im EPRCM bei gleichen Speicher- 
adressen möglich wird. Es läßt sich dadurch ein Gesamtspeicherraum von 28 K 
in Form von EJROM-residenten Maschinenprogrammen, Debuggern, Utilities, BASIC- 

Erweiterungen usw. bereitstellen, die weder bei Gebrauch erst geladen werden 
nüssen noch den Hauptarbeitsspeicher belegen. / 
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i 


SSi-ÄSiS: 


TELEFON 0541/588660 


Wenn der 2716 Sonder-ROM aus dem Genie durch Pin 1 des 1 aus 16 Decoders 
7 4 LS 15^ freigegeben wird, so ist gewährleistet, daß beim Einschalten des 
Gerätes (durch RESET wird in das Latch 0 eingetragen) immer dieser Bau- 
stein freigegeben ist und damit genauso verfügbar ist wie im Urzustand. 

Beachten Sie bitte: 

Durch den Umbau können evtl. Garantieansprüche nichtig gemacht werden. 

Wahrscheinlich wird nicht jeder Techniker am umgebauten Gerät eine vielleicht notwendige Reparatur 
durchführen können. 


.. j- Automatische Cassettenrecordersteuerung 

mit Einbauanleitung 
Colour Genie Joy Stick 

*** für Spiele, die sonst mit der Tastatur 

• gespielt werden 


DM 24,80 


DM 79,80 


SOFTWARE-KATALOG 

ANFORDERN!' 


Datenrecorder-Probleme? 

Muß nicht sein I 

Mit unserer Zusatzplatine werden die Daten digitalisiert. 

- In jedem normalen Recorder einzuschleifen I 

Mit Einbauplan Modul DM 98, ~ 


Für die "Alten" 

Leveimeter Nachrüstsatz kompl. mit Einbau- 
anleitung DM 19,80 

Commodore VC 20 + VC 64 
Cassettaninterface Vers. 1 mit Schaltern mit Bedienungs- 
anleitung (wird nur auf den Port gesteckt) . 

Für alle handelsüblichen Recorder DM 29,80 

dito Vers. 2 

mit automatischer Motorsteuerung für den Recorder. 

Versand: Entweder per Nachnahme oder per Vorkasse Mit Bedienungsanleitung DM 36,80 

auf unser Konto 66811 bei der Stadtsparkasse Osnabrück .... _ . 

(blz 26550001) Light Pen für C 64 in Vorbereitung ... 

Bel Bestellungen ab DM 50,- Porto und Verpackung frei. NDR -CompUter-BaUSätZe bei Uns I 



R. M. Hübben 
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PASCAL, Teil 1 

Der zweite Kurs in der GENIE DATA startet. Diesmal ein Pascal-Kurs. 
Wieso? 

. Ganz . einfach! Im Gegensatz zu dem# was alle eingefleischten 
Basic~Pro9rammierer behaupten# naemlich Pascal waere 9ar nicht soviel 
besser als Basic# steht das# was die Pascal-Leute behaupten# naemlich 
das Pascal doch viel besser ist. 

Wenn man nur , die eine oder nur die andere Sprache beherrscht# ma9 
das zu treffen# (denn fuer jemanden der nur Basic kann# wird es immer 
besser sein als Pascal. Wenn man sich aber mit bei dem schon befasst 
hat# wird man erkennen# dass man sein Urteil im Zusammenhang mit dem 
Problem# das man loesen moechte# sehen muss. 

Ich wuerde behaupten# dass Je nach dem# was man machen moechte# die 
eine oder die andere Sprache besser geeignet sein kann. In einem haben 
die Pascal-Leute aber recht'- Pascal -Programme sind wesentlich 
uebersicht lieber und leichter lesbar als Basic-Programme ! 

Ich wuerde, sagen# dass man nie zuviel, wissen kann# und das Sie 
deshalb diesen Kurs mitmachen sollten. Und wenn Sie einmal etwas in 
Pascal . eingestiegen sind# werden Sie f erstellen# das Pascal eine 
Sprache ist# in der das Programmieren sPassmacht! 

Nachdem ich Jetzt fuer Pascal quasi eine Lanze gebrochen habe# 
wollen wir uns ansehen# was Sie benoetigeh# t-üm • an diesem Kurs 
teilzunehmen. 

Zuerst brauchen Sie natu.er-1 ich einen Computer. Das kann fuer unsere 
Serie ein Genie I/II/III# ein Co tour Genie# ein Genie 16 oder 
irgendein Computer sein# auf dem Pascal laeuft.- Auf speziell unseren 
Computern koennen folgende Pascal -Systeme zürn Einsatz kommen- 

Genie I/II/III mit Diskette: Pascal 80 
, Colour Genie : Colour Pascal 

Genie 16 : Turbo Pascal 


Von diesem Programmen (Sie koennen auch ein anderes benutzen) ist 
Colour Pascal fuer ca. 69# — DM das Preiswerteste# Turbo Pascal 
warschei.nl ich das besste <198# — DM). 

Jedes dieser Programme enthaelt einen Text-Editor-# der irn PrinziP 
aufgebaut ist#, wie bei einem Textverarbeitungsprogramm. Da diese 
Editoren immer verschieden zu handhaben äi'iicl# werden wir in diesem 
Kurs nicht auf den Editor e ingehen! Wie Ihr spezieller Editor 
funktioniert# entnehmen Sie bitte der jeweiligen Anleitung! 

Jetzt legen wir aber endlich mit unserem Kurs los! 

Laden Sie jetzt Ihr Pascal# nehmen Sie die Anleitung Ihres Systems 
und geben Sie mit dem Editor das Listing B/GDliPflS ein. Wenn Sie alles 
fehlerfrei. abgetiPPt haben# ueber setzen Sie das Programm. Wenn Sie 
irgendwo einen Fehler haben# korrigieren Sie" diesen mit Ihrem Editor. 
Wie# steht im~ Handbuch. Betrachten Sie dieses List in9 als eine Art 
Uebungstext# um Ihren Editor ijmd CpmP Her kennen zu lernen. Beachten 
Sie bitte: In der zweiten Zeile steht 40 LU. Bei A und U handelt 
es sich um eckige Klammern# die vom Drucket als A und U ausgedruckt 
werden. A heisst also eckige Klammer auf# und U eckiöe Klammer zu. Es 
ist- . moe9l ich# das Ihr Editor keine eckigen Klammern kennt und dafuer 
andere Symbole benutzt# lesen Sie das in Ihrem Handbuch nach. 
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Wie Sie an diesem Beispiel sehen 'konnten* unterscheidet sich Pascal 
bei der Eingabe und, Ausfu.ehru.ng von Programmen grundsätzlich von 
Basic. Pascal ist keine InterPretersPrache wie Basic.- mit der ein 
Programm im Speicher direkt abgearbeitet wird* sondern eine 
ComP il er spräche > bei der ein Programmtest (Source) in ein 
Maschinenprogramm (oder P-Code) ueber setzt wird und erst nach dieser 
Lieber Setzung abgearbeitet werden kann. 


Dadurch wird zwar die Seit; die man zum Rustesten eines Programmes 
braucht; laenger als bei Basic; die flusfuehrungszeit; und darauf kommt 
es ah; wird aber wesentlich kuerzer! 


Schauen Sie 
daran einmal 


sich Jetzt einmal 
untersuchen; Wie- 


das Programm Addition an; wir werden 
ein Pascal-Programm grundsaetzl ich 


aufgebaut 
schreiben 
man sich 
optional ; 


ist. Im Gegensatz zu Basic; wo man alles irgendwohin 
kann., gibt es bei Pascal naemlich einige Spielregeln; an die 
halten muss, flm Anfang steht der Name des Programms. Das ist 
kann also entfallen., wird aber in diesem Kurs immer zu 
finden sein. Die Zeile die ich meine., ist diese: 

Program Addition; 

In dieser KoPfzeile koennte noch eine Vereinbarung getroffen werden; 
welche Teile eines Terminals zur Ausfu.ehru.n9 benoetigt werden; das 
wuerde dann so aussehen: . 

Program Addition < InPut; Output) ; 

Da wir aber immer nur Eingaben ueber die Tastatur und Ausgaben ueber 
den Bildschirm machen; koenhen wir uns das sparen. 


Als naechstes folgt der Deklarationsteil (was das ist; sehen wir 
sPaeter!). Daran sch l i essen sich die benoetigten Prozeduren (quasi 
Unterprogramme) an. Zum Schluss kommt das eigentliche Programm. 


Wie Sie sehen ; kann eine Prozedur eine eigene Deklaration enthalten. 


Grafisch sieht der Aufbau eines Pascal-Programmes also so aus : . 

■ | — — «t. 

I Name des Programms (KoPf) I 

. h— — • — j _■ 

• I Deklaration I 

i-.-— , — ----- — — — i . 

I Prozeduren I 

I (Eventuell mit Deklaration I 

I $ 1 

I Programm I 

i — - ! 

In unserem Beispiel habe ich die Teile durch Striche voneinander 
getrennt; so dass Sie sich die einzelnen Abschnitte genauer ansehen 
koennen. 


Die erste Zeile haben 
schauen wir uns jetzt Zeile 


wir 

f'uer 


uns oben 
Zeile an. 


bereits angesehen; den Rest 


Die zweite Zeile stellt den Deklarationsteil f'uer das HauPtProgramm 
dar und wird durch VAR -eingeleitet. Var ist ein reserviertes 
Pascal -Wort; andern der Compiler erkennt; dass ab hier alle benoetigten 
Variablen definiert werden. Ja; Sie haben schon richtig gelesen; 
Variablen muessen in Pascal definiert sein/ bevor Sie benutzt werden! 
Man kann also nicht wie bei Basic an Jeder x-beliebigen Stelle des 
Programms irgendeine Variable benutzen; sondern im Deklarations-Teil 
muss die Variable erwaehnt sein! Hier wird auch bestimmt; welches Typs 
die Variable ist. An Typen interessieren uns im Moment nur folgende: 


m 




■ 
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1. Irite9er 

Variable wird als Inte9er-Zahl definiert. 

2. Real 

Variable wird als Zahl einfacher Genauigkeit mit Fliesskomma 
definiert. 

3. CHflR 

Variable wird als "Ein Buchstabe" definiert# d. h. #. diese Variable 
kann ein alphanummerisches Zeichen halten. 


4. STRING , 

Variable haelt } Strings, <wie in Basic). Es ist moeglich# das bei 
Ihrem Pascal < 2 . B. Turbo) hinter dem Namen eine Zahl in eckige 
Klammern muss. 1 Diese Zahl gibt dann an# wieviele Zeichen des Strin9s 
gespeichert werden sollen. Falls das in Ihrem Pascal verboten ist/ 
lassen Sie bitte beim ersten Listin9 die Zahl in eckigen Klammern we9! 

Die Syntax der Variablen-Deklaration sieht so aus-' 

VOR namel # . . # namen s TYP# 

Eine Deklaration mit mehreren Variablen koennte also so aussehen 1 
VFIR a#b/C#d#e#f • real; 
x#y#z : integer; 

Namel /Name2 : string; 
fllPha •' char; 

Variablennamen koennen laen9er als zwei Zeichen sein <wie lang siehe 
Ihr Handbuch!) und sind auf alle Stellen signifikant. 

Jetzt kommt die Definition der Prozedur: 

Syntax: PROCEDUR NRME"<variablenliste)"; 

Uebrigens kann bei unserer Syntax-Erk laerung alles Wegfällen# was in 
Rnfuehrun9szeichen steht# hier also die Liste der Variablen# die 
ueber-geben werden sollen. Jetzt kommt die Variablen-Dek laration der 
Prozedur. Bei Variablen in einer. Prozedur handelt es sich um 
Prozedur-Interne-Variablen. Das heisst eine Variable kann in einem 
Programm mehrmals definiert werden# und gilt nur in der entsprechenden 
Prozedur. Man kann also in einem Programm z. B. drei Variablen mit 
Namen X haben# die alle unterschiedliche Werte speichern. 

Jetzt kommt BEGIN. Das zeigt dem Compiler an# das hier die Prozedur 
beginnt. 

- j 

Ueber lesen Sie Jetzt alles bis- END;. 

Die Befehle die verwandt werden# erklaere ich Ihnen im Teil. 

Mit END; wird das Ende der Prozedur gekennzeichnet. Dann folgt das 
HauPtPro9ramm# welches wieder mit be9in anfaengt und mit END. endet. 
Beachten Sie bitte das ein Semikolon das Ende einer logischen Zeile 
kennzeichnet. Der Punkt hinter dem letzten END bedeutet allerdings# 
das hier das Pr o9ramm zu ende ist. 

Unser erster Teil des Pascal-Kurses ist Jetzt auch zu Ende. Ich 
wuensche Ihnen froehliches ComPilieren bis zum naechsten Mal. 

END. ■ ■ . 


Listing o-f s Es GDI. PAS 
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program GENIE_DATA._PASCAL._KURS_.Tei 1 _1 

yar name : string Ä40ü; 
i : i nteger ; 

begi ns 
clrscr ; 

write ('Wie heissen Sie ? ’ ) ; 

readl n (name) ; - 
■for i:= 1 to 50 do 
write (name) ; 
wri tel ns 

writeln ('Ende des ersten Demos'); 
end. 


(»Loescht Bi 1 dschi rm* ) 
(»Text ausgeben#) 
(#input name**) 

(*far i =1 to 50*) 
(#print name*; *) 
(«Carriage Return#) 
(»Text ausgeben#) 
(»Ende des Programms#) 


program Addition; 
var check : char; 


( # : — — — — — --* ) 

procedure berechnung; 
var a,b,e ■ :real; 

begi n 

write ("Eingabe Zahl 
readln (a) ; 
write ('Eingabe Zahl 
readln (b) ; 
e : = a + b ; 
writeln (a: 11:2); 
wri tel n (b : 1 1 : 2) ; 

writeln ( ’ — — — — 

writeln (e: 11:2); 
end; 

( ■—#);' 

begin 
repeat 
clrscr ; 

writeln ('Addition zweier Zahlen’); 

' writeln C~ ?: — 

writeln; 
wri teln; : 
berechnung; 
writeln; 

writeln ( ’ lioechten Sie noch ei ne Berechnung ’) ; 
writeln ("Tippen Sie’ "J"; oder "n " ! ’ ) ; 
read (kbd, check) 
until upcase (check) =*'N'; 
end.' ' ,: ; 'i .. 


2 : ’); 


’> ; 
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So. .jetzt sind wir mit unserem Assembler-Kurs schon bei Teil 7 
an9e langt. Ich hoffe., dass Sie auch, dieses Mal wieder fleissi'9 
mit machen, aber setzen Sie sich an Weihnachten nicht zu, lange vor 
Ihren Computer. Und da wir schon dabei sind : 

Ich wuensche Ihnen ein frohes Weihnachten, ein 9lueck l iches neues Jahr 
und allzeit "HaPPy „ComPuting"! 


Jetzt wollen wir uns aber den Aufgaben vom letzten Mal zuwenden. 

Wenn Sie sich einmal erinnern wollen 1 

Sie sollten ein Programm schreiben, das eine Zeile voll "1". zwei 
Zeilen voll "2“ und drei Zeilen voll "3" auf den Bildschirm schreibt. 
Ob Ihr Programm funktioniert, koennen Sie natuerlich nur selbst 
feststellen, sollte es aber nicht 9ek laPPt haben. tiPPen Sie einmal 
me i nen .LöesunSsvorsch 1 a9 e i n . so 1 1 te es 9ek 1 aP P t haben . tiPPen, Sie 
meinen Vorschlag auch ein. Sie werden beim abtiPPen einiges 

interessante entdecken. Wenn Sie fertig sind mit tiPPen. lesen Sie 
weiter. 


Die Zeilen 100 bis 150 sollten Ihnen klar sein. 

Colour-Genie-ftnwender ersetzen diese Zeilen bitte, siehe Zeile 350 bis 
380. . 


In Zeile 168 < Label START) laden wir zuerst einmal das HL-Re9ister 
mit der Startadresse unseres Video-RAM ■'s. In Zeile 170 sehen Sie -jetzt 
die erste Neuerung : 

Um den Akku mit dem ASCII -Wert fuer Eins (49) zu laden, muessen wir 
nicht unbedingt schreiben LD ft. 49. sondern es geht auch LD R.'l v . Der 
Assembler erkennt an dem Hochkomma, das jetzt ein Zeichen kommt, das 
er nicht direkt uebertra9en soll, sondern das von dem kommenden 
Zeichen der ASCII-Wert gespeichert wird. Auf diese Art und Weise 
koennen Sie Zeichen laden, ohne immer in einer Tabelle nachsehen zu 
muessen. wie der Code fuer dieses Zeichen ist. 


Die Zeilen bis 210 muessten Sie wieder allein verstehen 


In Zeile 230 erscheint Jetzt wieder etwas neues. Wir laden das 
B-Re9ister mit LEN mal 2. Das heisst : Der Assembler kann fuer uns 
nicht nur Programme uebersetzen. sondern er kann auch rechnen, zwar 
nur in beschraenktem Masse, aber immerhin. 

In Zeile 140 weisen wir ja dem Label LEN einen Wert von 64 (40) zu. 
Jedesmal wenn wir nun LEN ansprechen, erkennt der Assembler, das 
anstelle von LEN die nummerische Konstante 64 (40) eingesetzt werden 
soll. Wenn wir Jetzt ein Register mit LEN laden, ersetzt der Assembler 
LEN durch die definierte Zahl, und das Register wird mit dieser Zahl 
geladen. Und wenn wir LEN*2 benutzen, rechnet der Assembler fuer uns. 
Er setzt dann statt 64 (40) eben 128 (30) ein. Aufpassen muessen wir 
hierbei nur. weil Ja ein Register, wie : B nur eine Zahl bis 255 
auf nehmen kann. Wenn bei unserer Berechnung ein Wert groesser als 255 
herauskommt, kann das die tollsten Ergebnisse liefern! 


Die restlichen Zeilen sollten Sie Jetzt alleine verdauen koennen 
Merken Sie sich also bitte- 

- 1. Man kann mithilfe von ■' ASCII -Werte erzeugen, lassen. 

- 2. Der Assembler kann fuer uns rechnen. 


54 GENIE DATA 


Jetzt wollen wir uns aber einer neuen Sache zuwenden : 

Von Basic her wissen Sie., wie oft ein Programm eine Entscheidung 
treffen muss. z. E. mit IF... THEN... . Ein Maschinenprogramm muss 
auch Entscheidungen treffen koennen. es 9ibt aber keinen IF. . . THEN... 
Befehl, bei einem Maschinenprogramm werden Entscheidungen mit den 
Flags getroffen, und das 9eht so : 


Die Flags sind einzelne Bits im Fla9-Re9ister. die jeweils den Wert 
Null oder Eins annehmen koennen. Je nachdem ob nun ein Flag den Wert 
Null oder Eins hat. koennen wir unser Programm an einer anderen Stelle 
als der naechsten fortsetzen.' d. h. wir koennen Je nach Zustand 
bestimmter Fla9s sP ringen. Die, Flags werden vom Prozessor se.lbstaendig 
gesetzt <=1) oder geloescht Der Prozessor bezieht sich dabei 

immer auf Berechnungen oder Vergleichsbefehle die zuletzt aus9efuehrt 
wurden. Wir haben aber auch die Mee9lichkeit. selbst Fla9s zu setzen 
oder zu loeschen. -um sie in einen definierten Zustand zu bringen. 
Jetzt schauen wir uns einmal an. welche Fla9s es gibt, und wodurch sie 
beeinflusst werden. ' 

Z-Fla9 — > Zero-Flag, gesetzt wenn Ergebnis =0. 

rueckgesetzt. wenn Ergebnis O 8. 

C-Flag, — > Carry-Fla9. gesetzt wenn Ueberlauf. ' . -V •„ 

ruek gesetzt, wenn kein Ueberlauf. 

Es gibt zwar noch einige Fla9s mehr, aber dieses hier sind die 
wichtigsten, und mit den anderen will ich Sie jetzt noch nicht 
belassten. 

Zu diesen Fla9s gibt es folgende bedingte Sprungbefehle 1 

JP NZ.nn = SPrüng wenn Z-Fla.9 = 8 

JP Z.nn - SPrung wenn Z-F l a.9 =1 

JP NC.nn = Sprung wenn C-Fla9 - 0 

JP C.nn = SPrung wenn C-Fla9 = 1 

Diese Bedingungen funktionieren auch mit JR (Jump Relative). CRLL 
und RET t Return). - fluch hiermit sollten Sie sich Jetzt noch nicht 
belassten. 

Zusaetzlich gibt es auch noch die CP (ComPare. en9l. to comPare = 
vergleichen) Befehle. Diese Befehle sehen so aus : 

CP r = fl vergleichen mit einem Register 
CP n = fl vergleichen mit 8-Bit Zahl 

CP (HL) = fl vergleichen mit der SPeicherzel le auf die HL zeigt 
CP <IX+d) = fl vergleichen mit der Speicherzelle auf die IX+d zeigt 

CP ( I V+d ) = fl ver9 lei chen mit der SP e i eher ze 1 1 e auf die I V+d ze i 9t 

Bei diesen CP-Befehlen werden die Fla.9s beeinflusst, und man kann 
springen, wenn der Vergleich zutrifft, oder aber wenn nicht. 

Ein Beispiel ; 

Stellen Sie sich vor. Sie wollen testen, ob eine Zahl einge9eben 
wurde, die 9roesser als 5 ist. und falls Ja. einen 3Prun9 ausfuehren. 
Nehmen wir weiter an. die ein9e9eben Zahl steht im flkku. Wenn wir 
Jetzt fl mit ' 5 ' vergleichen, entsteht ein Ueberlauf. falls die Zahl in 
Fl 9roesser war als 5. Unser Programm koennt-e also so ausseherf 



Profitieren 4 


Sie können als Abonnent bei jeder Ausgabe drei Zei- 
len KOSTENLOS inserieren ! ! ! 




p 



■ 
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!l-' : 

CP fl, '5' 




JP C, LABEL 




So.- das wars mal 

wieder fuer heute. 

Im naechsten Teil sehen wir uns I 


das : all es, anhand von einigen Beispielen etwas Genauer an. * 


00.100 i LÜESÜNG ZÜH 

ASSEMBLER-KURS TEIL. 6 


00110 S- 




00120 

ORG 7F00H 

S START-ADRESSE | 


00130 VIDEO 

EQU 3CÖÖH ' 

5 START VIDEO-RAM ; ■ vi ' • 


00140 LEN m . 

EQU 64 

SEINE ZEILE ,1 


00150 v 1 


' ■ 


00160 START 

LD HL? VIDEO 

S START VIDEO LADEN . ; 


00170 

LD A* 1 ’ 

SEHR LADEN 


001 BO - 

LD B.- LEN 

SLAENGE LADEN 


00190 L00P1 

LD (HL) ? A 

SAUF SCHIRM 


00200 

INC HL 

SNAECHSTE POS | 


00210 

DJNZ L00P1 

5 SCHLEIFEN i 

! / 

00220 

LD A,.' 2' 

5 CHR LADEN ! 


06230 

LD B,LEN*2 

SLAENGE (2 ZEILEN) LADEN 


00240 L00P2 i| 

LD (HL) ? A 

SAUF SCHIRM 


00250 

INC HL 

SNAECHSTE PDS 


00260 

DJNZ L00P2 

S SCHLEIFEN- 


00270 

LD A ? •' 3 •’ 

5 CHR LADEN 


00280. 

LD B?LEN*3 

SLAENGE (3 ZEILEN) LADEN 


00290 LD0P3 

LD ( HL ) ? A 

5 CHR LADEN 


00300 • 

. INC HL 

SNAECHSTE POS 


00310; 

DJNZ L00P3 

5 SCHLEIFEN 


00320 ; 




00330 

END START 



00340 5 




00350 SFUER CQLOUR 

GENIE HEISST ZEILE 

1308 ' . . • 


00360 5 VIDEO 

EQU 4400H 

7 ;:V: • • 


00370 SUND ZEILE 12 

Os 

. ■ ... 


00380 5 LEN 

EQU 40 

■' ?■. ■" ■ ' ' 
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WIE SCHICKE ICH 
MEINE PROGRAMME EIN 


Nehmen wir an, Sie haben etwas 
geschrieben, von dem Sie glauben, 
daß es auch für andere Computer- 
freunde interessant sein könnte. 
Was tun Sie damit? Sie schicken 
es an uns, damit es eventuell in 
der GENIE DATA abgedruckt 
wird. Auf diese Art und Weise 
kommen die meisten Artikel zu- 
stande, die Sie in der GENIE 

DAT A lesen können. 

Um uns zu gestatten, Ihre Ein- 
sendung zügig zu testen, und um 
uns die Arbeit zu erleichtern, 
sollten Sie bei der Einsendung 
aber einige Regeln beachten. 

1. 

Legen Sie Ihrer Einsendung ein 
Anschreiben bei, auf dem steht, 
was Ihr Programm kann, für wel- 
chen Computer es geschrieben 
wurde, wieviel Speicher es 
braucht, welche Peripherie benö- 
tigt wird, unter welchem Betriebs- 
system es läuft, was man benötigt, 
um es einzugeben. 

Handelt es sich um eine Hard- 
wareentwicklung, brauchen wir 
auch einen Schaltplan und falls 
möglich ein Platinenlayout. 

' 2, 

Eine genaue Programrabeschrei- 


bung oder Funktionserläuterung 
muß jeder Einsendung beiliegen. 
Je ausführlicher, desto besser ! 

3. 

Jeder Einsendung muß das Pro- 
gramm auf Datenträger beigelegt 
werden. Diese Datenträger sollen 
sein: 

COLOUR GENIE : Disk oder CC. 
GENIE/TRS 80 : Cassette 
GENIE UI : Diskette 
GENIE 16: Diskette 
GENIE H s : Cassette 

y ■ 4. . 

Ein Ausdruck Ihres Programmes 
muß so aussehen : 

Schrift: 12CPI 

Breite der längsten Zeile 1 : maximal 
18 cm. 

Farbband : Schwarz und möglichst 
neu. 

5. 

Jedes eingesandte Blatt muß Ihren 
Absender tragen. Falls möglich 
geben Sie auch eine Telefonnum- 
mer an, unter der man Sie errei- 
chen kann (von wann, bis wann?). 

6 . 

Eingesandte Artikel sollten, so- 
lange Sie bei uns sind, keiner an- 
deren Zeitschrift angeboten wer- 
den. 


. 7. ; 

Das Honorar vereinbaren wir mit 
Ihnen persönlich, da 50,- DM pro 
gedruckter Seite manchmal unge- 
recht sind! 

■"■■Vs 8. ■ 

Bis Ihre Einsendung von uns be- 
arbeitet wurde, können zwei Wo- 
chen vergehen, danach können Sie 
bei uns telefonisch erfragen, ob 
Ihr Artikel veröffentlicht wird. 

9. 

Eingesandte Artikel und Manus- 
kripte können nicht zurückge- 
schickt werden. 

Der Preis für den Datenträger wird 
Ihnen bei Veröffentlichung er- 
stattet (2,- DM für CC / 5,- DM 
für Disk). 

10 . 

Jedem Autor senden wir, falls eine 
Veröffentlichung geplant ist, einen 
Vertrag zu, in dem der Autor alle 
Rechte am Artikel an uns ver- 
kauft. Erst wenn wir diesen Ver- 
trag unterschrieben zurück haben, 
kann eine V eröffentlichung er- 
folgen. 

Wenn Sie sich an alle diese Punk- 
te halten, haben Sie die größte 
Chance, das Ihr Artikel veröffent- 
licht wird . Also, machen Sie mit ! 


Die kostenlose KUNDENDIENST-INFORMATION 

GENIE NACHRICHTEN 


Ersci 


Un 


sechs 


ma' 



von 



COMPUTER GMBH 


bei Ihrem Händler zu haben! 

oder anfordern bei 
HEEL-VERLAG 
Postfach 320220 
5300 BONN 3 


B E S T E L L -COUPON 
Bitte, senden Sie mir kostenlos die neueste Ausgabe 
der GENIE-NACHRICHTEN 


Name: 


t 


Straße: 

PLZ...... 


Ort. 



GENIE DATA 57 


BUGSs 

Im VOKABEL-TRAINER für 
Colour Genie fand sich ein 
Fehler, Setzen Sie bitte folgen- 
de Zeile ein- 

2085 IFA S= "4" THEN 2480 


IN DER NÄCHSTEN 
GENIE DATA : 

In der nächsten GENIE DATA 
haben wir wieder einige tolle 
Sachen für Sie ! 

Hier ein kleiner Einblick : 
Assembler-Kurs 
Pascal-Kurs, Teil 2 
Relaisinterface-Karte für Colour 
Genie. - Damit können Sie schal- 
ten und walten ! 

4711 - Ein spannendes Adventure- 
Game für Colour Genie. 

PLOT 1- Was kann der neue vier- 
färb Plotter von TCS. 

Lektüre - Was gibt es für Bücher 
für meinen Computer? Eine Aus- 
wahl der wichtigsten Titel für 
Genie I/H, Colour Genie und 
Genie 16. , 

DIE NÄCHSTE GENIE DATA 
erscheint im FEBRUAR 1985. 
Wir bieten wieder tolle Sachen ! 
Also versäumen Sie auf keinen 
Fall die GENIE DATA Nummer 
1,1985! 


Ihr H. Hübben 


Erwin Weigend 


Untersuchen Sie bitte diese Zah- I igen Unterschied • zwischen den und 730 zum Beispiel. Vorgän- 

lenfolge. 3, 6, 9, 12, 15. Zahlen. Fällt Ihnen jetzt etwas ger mal drei minus zwei heißt die 

Können Sie weitermachen? Natür- auf? Na bitte! Lösungsvorschrift. Die sechste 

lieh haben Sie die Gesetzmäßig- Zum ersten Glied muß man 4 Zahl ist deshalb 2188, die siebte 
keit sofort erkannt, und mit 18 addieren, zum zweiten 6, dann 8, Zahl 6562. Klar? 
und 21 richtig fortgesetzt. Prima! dann 10, 12, 14 usw. Deshalb die Haben Sie wieder Spaß am den- 
Wie wäre es also mit dieser Reihe : Lösungen 36 und 50 1 ken entdeckt? Dann nehmen Sie 

-4, 0, 6, 14, 24? Schwierig? Dann Möchten Sie es noch einmal sich etwa eine Stunde Zeit, tip- 
berechnen Sie einmal den jewei- probieren? Mit 10, 28, 82, 244 pen die folgenden Zeilen aufmerk- 
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600 A*=" ' BITTE E 

INE TASTE DRUECKEN ! ■ 

61C L=L£NIA*) 

620 FÜR 1=1 TD l 
630 8*=RIGHT*(ft*.L-I) 

640 C$=LEFT$(B*,25> 

650 PRINT5928.C5 

660 PLAY(1,4,1,1Q):FÖR 11=1 TO 15: NEXT1 I 
670 PLAYU 4 3.10) :FOR 11=1 TO 15:NEXTII 
680 PLAYU. 4, 5.10) :FOR 11=1 TO 15:NEXTII 
690 Q$=I#YMF B»<>" TUEN 730 
700 NEXTI 
710 COLOUR RND(8) 

720 BOTO 620 
730 PLAYU, 1,1,0) 

740 CLS 
750 NEXT J 
760. END. 

770 REM IJJJII» BERECHNUNGEN »Ulli« . 

780 REM — 1. und 2. Variante — - 

790 Y(0)=5-RND(10) 

800 A=RND(2)U_ 

810 B=RND(5) 

820 IF N=2 THEN B=-B 

830 FÜR 1=1 TO 7 

840 YU)=YU-1)«A*B 

650 NEXT ■ ' , ' . 

860 F*="Neue Zahl = Vorgaenger aal +STR 
*(A)+" plus ( *+STR* (B) +* ) ' 

870 6*- 
880 RETURN 

890 REM 3. Variante 

900 X=RND(10) 

910 B=RND(5)-1 

920 FOR 1=1 TO 7 

930 Y(l)=INT((X+!)Ä2+B) 

940 NEXT 

950 F*="6.Zahl = C+STR$IX)+* ♦ 6 )hoch2 p 
lus ( “+STR$ (B) +° ) " 

970 RETURN 

980 REM 4. Variante 

990 Y(1)=8-RNDU5) 

1000 Y (2) =8-RND ( 15) 

1010 FOR 1=3 TD 7 
1020 Y ( I ) =Y ( I-I) +Y 1-2) 

1030 NEXT 

1040 F*="Neue Zahl (ab 3.)=Suaae der ZBE 
IDEN davor" 

1050 G*=” 

1060 RETURN 

1070 REM 5. Variante 

1080 Y(0)=5-RNDU0) 

1090 K=RNDU5) 

1100 FOR 1=1 TO 7 
1110 K=K+1 

1120 IF I/2=INTU/2)THEN Y(11=Y(I-1)-K E 
LSE Y(I)=Y(I-1)+K 
1130 NEXT 
1140 K=K-6 

1150 F*="Ab’*STR*(Y(l) )+" -’+STR* (K+11 + 
■ +'+STR*(K+2)+" -’+STR*(K+3)+' +"+STR*( 
K+41+* usw." 

1160 G*="" 

1170 RETURN 

1180 REH — 6. Variante — 

1190 Y10)=10-RND(20) 

1200 K=RND(5) 

1210 F0RI=1 TO 7 
1220 YU)=Y(I-1)+I»K 
1230 NEXT 

1240 F*="6. Zahl = 6 aar+STR*(K)+"» 5. 
Zahl“ 

1250 6$=“7. Zahl = 7 aal ’+STRS (K) ♦“+ 6. 
Zahl" 

1260 RETURN 

1270 'REH, ------ 7. und 8. Variante 

1280 Y(0)=5-RNDU0) 

1290 A=RND (2) +1 
1300 IF N=8 THEN A=-A 
1310 FOR 1=1 TO 7 
1320 Y(I)=Y(I-1) JA 
1330 NEXT 

1340 Ft=*Neue Zahl=Vorgaenger aal C+STR 


*(A)+") " 

1350 6*=“" 

1360 RETURN 

1370 REM llt MASKE Itl 
1380 CLS 
1390 PRINT 
1400 COLOUR 4 

1410 PRINTTAB Uö) STRING* (21,210) 

1420 FOR 1=1 TO 7 

1430 PRINTTAB (10! “e';STRING* (19,217) :e 
1440 PRINTTAB (10) "e'';;!FI<8 THEN COLOUR 
2 ELSE COLOUR 3 

1450 PRINT I " . Zahl \-:C0L0UR4:P 

RINT"-e“ 

1470 PRINTTAB (10) "1" : STRING* (19. 217) ; “e " 
1480 PRINTTAB(lö)STRIN6$(21, 209) 

1490 RETURN 

1500 REH JtJ MUSIK Ul 

1510 REM JA-MELODIE 

1520 PLAY (1.4, 1,15) :F0RI=1TD100:NEXT 
1530 PLAYU, 4. 3,15) :FQRI=1TQ10Q:NEXT 
1540 PLAY ( 1‘, 4 , 5, 15) i FORI= 1T0100: NEXT 
1550 PLAYU, 5 ,1,15) : F0RI=1 T0300: NEXT 
1560 PLAYU, 11 0) 

1570 RETURN 

1580 REM NEIN-MELODIE. — 

1590 FÜR 1=1 TO 3 . . ■ 

1600 PLAYU, 3, 1,15): FQR 11 = 1 TO 50:NEXTI 

! 61 0 PLAY (1 , 1,1 , 0 ) : FOR 11=1 TO lö.-NEXT 
1620 NEXT 

1630 PLAYU, 2,11, 15):F0R 11=1 TO 300:NEX ; 

1640 PLAYU, 1, 1,0) ' 

1650 RETURN' f 

( COLOUR \ 

V GENIE J 


2ö reH Ui Version Öktdber 1984 
30 REM llt Erwin Heiqend 7129 Gueqligen 
40 RANDOM 
50 CLEAR 3000 
60 CLS 

70 FOR 1=1 TO 50 
80 COLOUR RNDU6) 

90 PRINT§RND(839) .RNDUOÖ) 

100 NEXT 
110 COLOUR 4 

120 PRINT§410,STR1NG*(20,“7") 

130 FOR 1=1 TO 5 

140 PRINTTABUO) '?";:COLOUR RND(B) : PRINT 
■ DENK’ MAL NIEDER l ::COLOUR 4:PRINT"?" 
150 NEXT 

160 PRINTTAB (10) STRIN6* (20, "?" ) 

170 COLOUR 3 

180 PRINT5880 “NIEVIEL FOLGEN SOLLEN ES 
SEIN*;: INPUT R 
190 IF, R< 1 THEN 180 
200 CLS 

210 FOR J=1 TO R 
220 N=RND(8) 

230 ON N GOSUB 780, 780, 890, 980, 1070, 1180 

.1270.1270 

240 6ÜSUB 1370 

250 PR1NTS15, J : “ . FOLGE" 

260 COLOUR 7 

270 FOR 1=1 TO 5 

280 PRINTS61+IJ80,Y(I) 

290 NEXT 

300 COLOUR 3 

310 PRINTS542,;: INPUT Z6 

320 PRINT56221:: INPUT 17 

330 PRINT : PRINT 

340 COLOUR 8 

350 IF Z6=Y(6) AND Z7=Y<7) THEN 430ELSE 
PRINTS552.YC6) : : PRINTS632, Y (7) 

360 PRINT5472, "L.0ESUN6: * ' 

370 GOSUB 1580 
380 COLOUR 2 

390 PRINTS760. "EINE MOEGLICHE LOESUNGSFD 

RMEL NAERE z.B:“i 

400 COLOUR 3 

410 PRINTE*: PRINT6* 

420 GOTO 540 
430 FOR T=1 TO 3 
440 COLOUR RND181 
450 A*="STIMMT !-:B*=" 

460 PRINT5552,At:PRINT5632,At 
470 PRIN §520’A*:PRINT5600,At 
480 GOSU 1510 

490 PRIN I552,B*:PRINT5632,B* 

500 PRIN 5520,Bt:PRINT5600',B* 

510 FOR TT=I TO 20:NEXTTT 
520 NEXT T 
530 RL=RLU 
540 COLOUR 2 

550 PRINTI880. STRING* (40, 42) i 
560 IF J=R THEN 570 ELSE 600 
570 PRINTI3 "IHR ERGEBNIS: “:RL; -von*; 

R: "richtig V 

580 IF RL/R>=0.75 THEN At=" 

DAS NAR EINE MEISTERLEISTUNG! 1 
CH GRATULIERE! (Ihr Colour Genie) ":G0 
TO 610 

590. A*=" VERSUCHEN S 


Machen Sie mitl 
Schreiben Sie Artikel für 
GENIE DATA! 

Besonders interessiert sind 
wir an: 

Hardware für Colour Genie 
Hardware für Genie l/l I 
Programme für Genie 16 
Programme für Genie l/il 
Programme für Genie III 
Programme für Colour Genie 
Anwendungsberichte 
Neuerungen 

Wenn Sie etwas haben> dann 
lesen Sie bitte auch Seite 
56!!! 
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»** 

MIT DIESEM FANTASTISCHEN SPIEL haben Sie es nun geschafftl - Sie sind mitten unter Ihnen. 

Sie können den rasanten Befehlen des Computers entgegenwirken. Es geht auf Gedeih und Verderb. 
Drängen Sie Ihren Gegner ins Verderben. - Er versucht das gleiche mit Ihnen. - Außerdem wird das 
Spiel immer schneller. - Treiben Sie Ihren Gegner in die Enge! - Lassen Sie ihn explodieren! ■ Bei 
1000, 2000, 4000, etc. Punkten gibt- es jeweils ein extra Fahrzeug. - Palls. Ihnen der Gegner zu gut ist, 
können Sie mit gedrückter Sf*ACE-Taste den Gegner überholen und evtl, vernichten. 

Dieses Spiel ist sehr aufregend, spannend zum bersten und nicht leicht zu spielen - die Rekordliste 
wird es zeigen. - Man könnte mit diesem Spiel einen DEUTSCHEN MEISTER herausstellen I v 

PREIS für Cassette NUR DM 49 ,- jd 




TERRA * ein Action-Spiel, welches Sie zum Wahnsinn treibt! - Feindliche Raumschiffe greifen 
die Erde an. Sie müssen sie blitzschnell in ihr Fadenkreuz bekommen und abschießen mit Ihren Laser- 
strahlen. Sind alle Angreifer zerstört, dann kommen noch zwei weitere Angreiferwellen. Im Anschluß 
daran erhält man einen Bonus, und die Punktezahl wird gezeigt. - Danach kommen wieder neue 
Angreifer, wobei deren Abstand, ihre Anzahl und die Geschwindigkeit des Fadenkreuzes von Runde 
zu Runde verändert werden. - Wird die Erde von einem Raumschiff gerammt, dann explodiert sie. 
Retten Sie die Erde! Das Spiel hat Sprachausgabe über Fernsehlautsprecherl 

Eine tolle Bereicherung Ihrer Sammlung auf Cassette zu einem Superpreis von DM 39,--. 
******************************************************************************** 



■rniflZE m> 


TANK MAZE * DAS SPIEL DER SPIELE) Dieses Spiel sollten Sie natürlich auch haben, ^»ie fahren 
Ihren Panzer in Stellung und lauem auf die gegnerischen Panzer und ballern dann los. ■ Es kommt 
bei diesem Spiel eine wahre Gefechts-Situation zustande, die den Spieler derart mitreißt, so ähn- 
lich wie bei TRONN, daß man um sich herum einfach alles vergißt, und drauflos ballert, daß es 
nur so kracht und rumst I Von Spiel zu Spiel wird man immer besser und der Spaß wird größer. 
Tolle Grafik mit 3D-Effekten, toller Sound. - Übrigens tolle Grafik und wirklich toller Sound ist 
auch bei den anderen Spielen vorhanden I . 

Dieses wahrhaft tolle Spiel erhalten Sie bei uns auf Cassette für NUR DM 49,-Jjrauf Disk. DM 56,- 

tt********#****#**********************® ****** **************#***’ *************** 




JUMP * EIN GANZ FANTASTISCHES SPIEL, was doch auch ganz schön nerven kann. - 
Steuern Sie eirr kleines niedliches Männlein auf einem laufenden Förderband jeweils eine Etage höher 
und verhüten Sie in die Löcher zu fallen. Bei einem Sprung nach oben, dürfen Sie nicht gegen die 
Decke springen, denn dann fällt das Männlein um und sieht einen Kreis voller Sterne. - Aber er läßt 
sich nicht verdrießen und steht schnell wieder auf usw. - Je höher man es schafft, bekommt man es 
mit Gespenstern zu tun und es lauern viele Gefahren. - Dann wird es schneller und noch schlimmer. 
Aber Sie werden es selbst sehen wie es weiter geht. 

Tolle Grafik und herrlicher Sound Nur auf Cassette DM 30,- 

****** ************************************* 

ALLE SPIELE SIND BRANDNEU und jede Bestellung wird schnellstens an Sie per NN abgeschickt 
PREIS Postgebühren u. NN-Kosten. - Versand bei Vorkasse frei I An Fa. Hübben, D-5429 Marienfels/Ts. 
************************************************** Mühlbachstraße 2 





Schönschrift 
oder Matrix? 

2395.— DM (inkl. MWSt) 


Beides! fi^lPradix 10 

Druckprinzip: 9-Nadel-Mai.rix-Druckkopf auf Ncrmalpspier Geschwindigkeit 200 Zeiehen/Sekunde, bei Schönschrift 32 Zeichen/Sekunde Puffer: 16K Schrift- 
größen: 10, 12, 17 (6, 6, 8.5) Zeichen/Zoll, entsprechend 80, 98, 136 (bei doppelter Breite-. 40, 48, 68) Zelehen/Zeile Schriftmatrix: Standard ASCII mit 
Unterlängen 9 x 9 , Breit 18 x 9, Fett 18 x 16, Schönschrift 17 x 9 Grafik: Blockgrafik 6x6, Lew Resolution Grafik 480 x 8 Punkte/Zelle, High Resolution 
960 x ß Punkte/Zeile, Ultra High Resolution. 1920 x 8 Punkte/Zeile Schriftsatz: 96 Standard ASCil Zeichen, 96 NLQ-ASC11 Zeichen, 88 Internationale 
Sond8reeichen, 64 Sonderzeichen, 32 Blockgrafikzeichen, 2 x 86 Hintergrunczeichen (normal t proportional) Schriftarten: Normal, Elite, Eng, Breit, Extra Feit, 
Superecript und Subscript Sonderfunktionen: Schönschrift (NLQ), Einzelblattcinzug, Selbsttest, Hintergrundzeichen. Macro-Instruotion, durchgehendes 
Unterstreichen. Form- und Längenauswahl mit Kippschalter, 7 oder 8bit wählbares Interface, Papiertransport vorwärts und rückwärts. Hochauflösende Grafik 
FormularFunktlon: vertikaler und horizontaler Tab'ulator, linker und rechter Fand, Leereeilen zwischen den Seiten, Zeilenanzahl pro Seite, Zeilenabstand /Zoll 
und /Zoll, sowie programmierbar in /«Zoll und 14 Zoll Farbband: Kassette, Nylon 40/34 F, endlos Papier- 1 Original und 3 Durchschlage, Einzelblau 
14-21, 8cm Breite, Encte 1.0,2- 25,4 cm Breite Interface: Standard: Seriell und Parallel, Optional: IEEE, Commodore, Grafstar (APPLE) Abmessungen: 
41,4 x 34,5 x 11,7 crr. Gewioht: 9,1 KQ 
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